| Author |
 Topic  |
|
Andy Humm
Average Member
United Kingdom
908 Posts |
 Posted - 23 February 2008 : 05:21:51
|
Knowing there has been a few observations and alterations in the MOD since inaugeration, can you confirm whether the existing download link has all the alterations/tweaks incorporated, thus saving doing the changes mentioned above - Download link Version 1.1.02
It would be easier that doing the changes above..Cheers Andy< |
 |
|
|
cripto9t
Average Member
USA
881 Posts |
Posted - 23 February 2008 : 07:11:59
|
Webbo you can also chang those titles in user_space.asp
Look for this code at the top of the page.
Const strFriendLev1 = "Level 1" ' Friend Level 1
Const strFriendLev2 = "Level 2" ' Friend Level 2
Const strFriendLev3 = "Level 3" ' Friend Level 3
I'll put that on my list for the next update.
I'll give PMs a look this weekend.
Andy, except for the last 2, (chkDate to StrToDate) and Friends level,
all the bugs posted in this thread have been addressed in the version 1.1.02.
Both very easy fixes  .
Also the chkDate bug is only an issue if you use the "yesterday/today" mod.< |
_-/Cripto9t\-_ |
Edited by - cripto9t on 23 February 2008 07:13:03 |
|
|
|
Andy Humm
Average Member
United Kingdom
908 Posts |
Posted - 23 February 2008 : 08:56:39
|
| Cheers cripto9t< |
|
|
|
cripto9t
Average Member
USA
881 Posts |
Posted - 23 February 2008 : 09:06:00
|
Webbo this is untested because I don't have pms installed.
Add pm column to the sql statement red text. Make sure its right after Yahoo and don't forget the comma.
strSql = "SELECT FRIEND_ID, F_MEMBER, F_FRIEND, F_LEVEL, F_DATE, M.M_NAME, " & _
"F.M_STATUS, F.M_LEVEL, F.M_NAME, F.M_TITLE, F.M_POSTS, F.M_DATE, F.M_EMAIL, " & _
"F.M_COUNTRY, F.M_HOMEPAGE, F.M_LASTPOSTDATE, F.M_LEVEL, F.M_AIM, " & _
"F.M_ICQ, F.M_MSN, F.M_YAHOO, M.M_PMRECEIVE " & _
"FROM " & strTablePrefix & "FRIENDS, " & strMemberTablePrefix & "MEMBERS M, " & strMemberTablePrefix & "MEMBERS F " & _
"WHERE F_MEMBER = " & memID & " AND F_MEMBER = M.MEMBER_ID " & _
"AND F_FRIEND = F.MEMBER_ID " & _
"AND F_LEVEL <= 2 " & _
"ORDER BY F_LEVEL ASC, M.M_LEVEL DESC, M.M_NAME ASC, F_DATE ASC"
Around line 773
F_FriendLevel = allTableData(16,iRowCnt)
F_FriendAIM = allTableData(17,iRowCnt)
F_FriendICQ = allTableData(18,iRowCnt)
F_FriendMSN = allTableData(19,iRowCnt)
F_FriendYAHOO = allTableData(20,iRowCnt)
F_FriendPM = allTableData(21,iRowCnt)
Around line 865 add link
If (F_FriendPM = "1" and strPMStatus = "1") Then
if Trim(F_FriendPM) <> "" then
Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & ChkString(F_FriendName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(F_FriendName,"display") & " a Private Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End IF
that link is copy and paste from topics and it probably doesn't need that second if statement, but I'm not going to mess with it < |
_-/Cripto9t\-_ |
Edited by - cripto9t on 23 February 2008 09:06:59 |
|
|
|
bitwise2000
Starting Member
38 Posts |
Posted - 23 February 2008 : 11:30:21
|
Has anyone installed this on 3.4.03 ? Other than some differences in the location of the script mods, I don't see any issues. Looks like something I want to try.
One concern would be reliance by the new code on common functions which don't exist in the older version.< |
Edited by - bitwise2000 on 23 February 2008 11:31:17 |
|
|
|
cripto9t
Average Member
USA
881 Posts |
Posted - 23 February 2008 : 12:12:14
|
I haven't checked it but I don't think there would be any problems
with older versions of 3.4
The only possible problem I can think of may be with drafts and the post files.
But I really doubt there would be one.
AFAIK the forum funcions used, chkString(), chkDate(),etc.. were used in older versions of 3.4
< |
_-/Cripto9t\-_ |
|
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 24 February 2008 : 05:44:32
|
Crypto9t, just to confirm that the above code to add a PM link works well
There's a small typo in pop_userspace.asp:
On line 533, 'has been added to you forum friends folder' needs to read: 'has been added to your forum friends folder'
Good mod by the way< |
|
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 24 February 2008 : 19:54:27
|
For those who have got the Active User mod implemented into their forums, I've worked out a way for the Online Status of Friends to be shown in the Friends add-on:
______________________________________________________________________
In file: inc_func_common.asp
find:
sub AUHandleLoging()
strSql = "DELETE FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_IP = '" & Chkstring(request.ServerVariables("REMOTE_ADDR"), "SQLString") & "'"
my_conn.execute (strSql)
end sub
add the following after:
function AUGetOnlineMembers()
strSql ="SELECT " & strTablePrefix & "ACTIVE_USERS.MEMBER_ID "
strSql = strSql & " FROM " & strTablePrefix & "ACTIVE_USERS "
if strAUAnon and not(bolOverride) then
strSql = strSql & "INNER JOIN " & strTablePrefix & "MEMBERS ON "
strSql = strSql & strTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "ACTIVE_USERS.MEMBER_ID "
strSql = strSql & "AND " & strTablePrefix & "MEMBERS.M_AUHIDE <> 0"
end if
set rsOnline = my_Conn.Execute(strSql)
If NOT rsOnline.EOF Then AUGetOnlineMembers = rsOnline.GetRows()
rsOnline.close
set rsOnline = nothing
end function
function AUMemberStatus(OnlineMembers, CurrentMember)
if IsArray(OnlineMembers) then
for intRow = 0 to UBound(OnlineMembers, 2)
if OnlineMembers(0,intRow) = CurrentMember then
AUMemberStatus = "Online"
exit function
end if
next
end if
AUMemberStatus = "Offline/Hidden"
end function
In: user_space.asp
Line 22, after <%
add:
'## Get online users into an array
arrOnlineMembers = AUGetOnlineMembers()
'## end
Line 274
Change:
redim strHeadCell(8)
strHeadCell(0) = " "
strHeadCell(1) = " "
strHeadCell(2) = "Friend"
strHeadCell(3) = "Level"
strHeadCell(4) = "Contact"
strHeadCell(5) = "Friend Since"
strHeadCell(6) = "Last Post"
strHeadCell(7) = "Member Since"
strHeadCell(8) = " "
to:
redim strHeadCell(9)
strHeadCell(0) = " "
strHeadCell(1) = " "
strHeadCell(2) = "Friend"
strHeadCell(3) = "Level"
strHeadCell(4) = "Status"
strHeadCell(5) = "Contact"
strHeadCell(6) = "Friend Since"
strHeadCell(7) = "Last Post"
strHeadCell(8) = "Member Since"
strHeadCell(9) = " "
Line 841
Change:
Response.Write " (" & F_FriendPosts & ")</font></td>" & vbNewLine & _
to:
Response.Write " (" & F_FriendPosts & ")</font></td>" & vbNewLine
Line 842
Add:
'############# Online Status #########
Response.Write " <td align=""center"" bgcolor=""" & CColor & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
" " & AUMemberStatus(arrOnlineMembers, F_FriendID) &"</font>" & vbNewLine & _
" </td>" & vbNewLine
'############# End Online Status #########
Line 848
Change:
" <td align=""left"" bgcolor=""" & CColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
to:
Response.Write " <td align=""left"" bgcolor=""" & CColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
That should do it 
(Credits for some of the coding to this thread: http://forum.snitz.com/forum/topic.asp?TOPIC_ID=42436)
Regards,
Dave
Edit: Just tidied up the code at Line 842
< |
Edited by - Webbo on 25 February 2008 03:23:13 |
|
|
|
bobby131313
Senior Member
USA
1163 Posts |
Posted - 24 February 2008 : 20:15:40
|
Awesome! Works great, Thank you!
Just need to change the 2 td align=""left"" to td align=""center"" to match the rest of the table.< |
Switch the order of your title tags |
|
|
|
weeweeslap
Senior Member
USA
1077 Posts |
Posted - 25 February 2008 : 20:29:07
|
the dbs file for the bookmarks is not functional. I had to manually make the tables
this is what the dbs file looks like that I downloaded.
Bookmarks
[CREATE]
BOOKMARKS
BOOKMARK_ID
B_MEMBER#int (11)##0
B_URL# varchar (255)#NULL#''
B_TITLE# varchar (100)#NULL#''
B_CAT# varchar (100)#NULL#''
B_DATE# varchar (14)#NULL#''
[END]
[INSERT]
CONFIG_NEW
(C_VARIABLE,C_VALUE)#('STRUSBOOKMARKSWITCH',1)
[END]
< |
coaster crazy |
|
|
|
bobby131313
Senior Member
USA
1163 Posts |
Posted - 25 February 2008 : 22:07:29
|
There was another bookmarks mod that I tried a while back and never got
to work. I never deleted the tables, they've just been sitting there. It
threw a monkeywrench in this mod. When I realized what happened, I
dropped all the bookmark tables from the db, old and new, and started
over. Worked fine.
Maybe you did this too?< |
Switch the order of your title tags |
Edited by - bobby131313 on 25 February 2008 22:08:16 |
|
|
|
weeweeslap
Senior Member
USA
1077 Posts |
Posted - 25 February 2008 : 22:22:39
|
I had old bookmarks mod in there, I did drop the tables before hand because I knew they were there and it still didn't work. So I just added the tables manually and all is working fine now
-edit-
Forgot to mention I am on SQL server.< |
coaster crazy |
Edited by - weeweeslap on 25 February 2008 22:24:03 |
|
|
|
Bassman
Junior Member
Netherlands
256 Posts |
Posted - 27 February 2008 : 08:16:56
|
Still not working with access?  < |
|
|
|
cripto9t
Average Member
USA
881 Posts |
Posted - 27 February 2008 : 08:51:32
|
quote:
Originally posted by Bassman
Still not working with access?
Whats not working with access? What errors are you getting?
I can't test but I can give it a look .
weeweeslap did you try the db setup file I included?
The dbs files were mainly for access users or if all else fails .
The field B_MEMBER needs to be set up as an index, to shorten db searches. The same goes for Friends and Drafts, F_MEMBER and D_AUTHOR.< |
_-/Cripto9t\-_ |
|
|
|
weeweeslap
Senior Member
USA
1077 Posts |
Posted - 27 February 2008 : 10:14:23
|
| if by db set file you mean the dbs file, yes I tried it and it didn't work. But I managed to get stuff done by manually adding the fields in and setting the key to the fields that needed it. Thanks.< |
coaster crazy |
|
|
|
Topic |
|
User Space 1.1.02 (last update 02/14/08)
