| Author |
 Topic  |
|
|
mortioli
Average Member
United Kingdom
898 Posts |
 Posted - 23 May 2003 : 13:00:26
|
Hiya!
I have the Active Users MOD installed, and I wanted to try and take the idea of different colours for the Admin and Moderators, and use it throughout the forum.
I was thinking of making it so on default.asp (under the Moderators column), the Moderators will show up in the AU Moderator colour, and the Admins will show up in the AU Admin colour...I've added the Admins to the Moderators list to help new people know that the Admins moderate it aswell etc.
So I thought this idea would be good in topics, posts, members.asp, pm_view.asp etc aswell.
Does anyone know a way of doing this?
Also, on the idea of using the colours in topics and posts...would it be possible to only show the moderator colours on moderators of that forum?
Eg;
Moderator 1 is the Mod of forum A
Moderator 2 is the Mod of forum B
Moderator 1 shows up as a normal members colour in B, but the Moderator colour in A
Sorry if I've confused anyone  lol
Thanks! |
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 23 May 2003 : 14:05:56
|
That should be possible, although it will require some changes to default.asp and one or two functions used as well, just for for the changes to default.asp. In effect, the query which fetches the moderators must also fetch each moderator's member level. Then you must pass this variable into the string used to store the mod-info, and change the functions used to get the relevant moderator for each forum. I had an idea on how to do it, but it didn't work. 
On the other pages, you must first collect the data about who is moderator for that forum, and then display the name(s) and use the color-variables from AU (admin = strAUModColor and moderator = strAUAdminColor).
Im doing this on my forum.asp page, where I display the moderators above the listing of topics.
Here is the code that I use on my forum.asp. You will have to change the html-code to fit your forum, as this only displays the moderators names after each other. Im displaying this between the navigation tree and the dropdown-list (used to choose no of days posting showed), but you may want to show this somewhere else. In any case, you should be able to get this work on any page you want to display the moderators in.
Please note that the variable marked red has to be changed to a variable used in that page to get the current forum id.
'############### Get Moderators ###########################
strModsSQL = "Select M1.MEMBER_ID, M1.FORUM_ID, M2.M_NAME, M2.M_LEVEL " & _
" FROM " & strTablePrefix & "MODERATOR M1 , " & strMemberTablePrefix & "MEMBERS M2" & _
" WHERE M1.FORUM_ID = " & Forum_ID & _
" AND M1.MEMBER_ID = M2.MEMBER_ID "
set rsModerators = Server.CreateObject("ADODB.Recordset")
rsModerators.open strModsSQL, my_Conn, adOpenStatic
If rsModerators.eof then
strModerators = "No moderators assigned"
rsModerators.close
set rsModerators = nothing
else
' Now lets grab all the records
alldata=rsModerators.getrows
rsModerators.close
set rsModerators = nothing
numrows=ubound(alldata,2)
fld_memberid=0
fld_forumid=1
fld_mname=2
fld_mcolor=3
FOR rowcounter= 0 TO numrows
ModeratorID = alldata(fld_memberid,rowcounter)
ModForumID = alldata(fld_forumid,rowcounter)
ModeratorName = alldata(fld_mname,rowcounter)
Moderator_Color = alldata(fld_mcolor,rowcounter)
'######## Custom MemberName Font Colors ########
Select Case CInt(Moderator_Color)
Case 2
strModeratorFontColor = strAUModColor
Case 3
strModeratorFontColor = strAUAdminColor
End Select
'######## End of Custom MemberName Font Colors ########
if rowcounter = numrows then
strComma = ""
else
strComma = "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>, </font>"
end if
Response.Write "<a href=""" & "pop_profile.asp?mode=display&id=" & ModeratorID & """ " & dWStatus("View " & ModeratorName & "s Profile") & "><acronym title=""View " & ModeratorName & "s Profile"">" & _
"<b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strModeratorFontColor & """>" & ModeratorName & "</font></b></acronym></a>" & strComma & vbNewLine
NEXT
End If
'############### Get Moderators ###########################
|
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod |
 |
|
|
mortioli
Average Member
United Kingdom
898 Posts |
Posted - 24 May 2003 : 05:52:26
|
Ooook, I'm confused lol. Sorry, to early
What I was thinking first, was this code in default.asp...
function listForumModerators(fForum_ID)
fForumMods = split(strForumMods,"|")
for iModerator = 0 to ubound(fForumMods)
fForumMod = split(fForumMods(iModerator),",")
ModForumID = fForumMod(0)
ModMemID = fForumMod(1)
ModMemName = fForumMod(2)
if cLng(ModForumID) = cLng(fForum_ID) then
if fMods = "" then
fMods = "<nobr>" & profileLink(chkString(ModMemName,"display"),ModMemID) & "</nobr>"
else
fMods = fMods & "<br /><nobr>" & profileLink(chkString(ModMemName,"display"),ModMemID) & "</nobr>"
end if
end if
next
if fMods = "" then fMods = " "
listForumModerators = fMods
end function
Is there anyway to change that so Admins show in Admin colour, and Mods in Mods etc!?
Thanks! |
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 24 May 2003 : 07:01:42
|
| That is the function used to display the moderators on default.asp. I tried to add a font-tag before and after the profileLink-function, but it didn't work. I think you have to modify profileLink to make it work on default.asp, by adding the font-tag before and after the moderator's name in function profileLink. |
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod |
|
|
| |
Topic |
|
|
|
Topic Locked
