Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Different Username Styles for Admins and Mods

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
cripto9t Posted - 04 May 2008 : 13:05:16
Not sure what to call this mod, so for now it's the "User Class Mod". It's not very descriptive so if you have a better idea for a name, let me know.

What this mod does: Admin and Moderators Usernames are displayed using a different css style, i.e. (font color, weight, whatever), than normal users.

This mod adds a couple of new css classes, 1 for admins and 1 for mods, to the css in "inc_header.asp". A function then determines which class to use depending on the the members forum rank.

Download here May have to Right Click and Save

Files I've modified to use this.
  • default.asp
  • forum.asp
  • topic.asp
  • active.asp
  • members.asp

If I've missed any let me know.<
11   L A T E S T    R E P L I E S    (Newest First)
texanman Posted - 05 May 2008 : 20:19:34
Yes, works with names without space in all pages. The bold for names with space is also in all pages.<
cripto9t Posted - 05 May 2008 : 19:04:33
quote:
Originally posted by texanman

Found one more missing marker in Forum.asp line 480 after Topic_MName =
Still that doesn't solve my problem. There could be more missing markers?!


Thanks, the marker right above that is in the wrong place. It needs to be 1 line down.
		Topic_LastPostReplyID = arrTopicData(tT_LAST_POST_REPLY_ID, iTopic)
		Topic_MName = arrTopicData(tM_NAME, iTopic)
'##USER_CLASS ## ADD line below #################################################################################
                Topic_MLevel = arrTopicData(tM_LEVEL, iTopic)
		Topic_LastPostAuthorName = arrTopicData(tLAST_POST_AUTHOR_NAME, iTopic)
'##USER_CLASS ## ADD line below #################################################################################
                Topic_LastPostAuthorLevel = arrTopicData(tLAST_POST_AUTHOR_LEVEL, iTopic)

That might help, but the fact that the "bold" part works means the span and the css class are connecting.
Does it work with names without a space? Is it just happening on one page or every page?

If it's just one page, post a link to a txt file and I'll give it a look.<
texanman Posted - 05 May 2008 : 15:25:31
Found one more missing marker in Forum.asp line 480 after Topic_MName =
Still that doesn't solve my problem. There could be more missing markers?!<
texanman Posted - 05 May 2008 : 13:35:22
Thanks for responding.

I am not using AU variables and I checked the color spelling and I went through the changes 3 times.
The only difference between my files and yours is in topic.asp where I made changes from this topic:

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66959

I am not sure if the problem from this.<
cripto9t Posted - 05 May 2008 : 12:08:27
quote:
Originally posted by texanman

Hello Cripto9t:

I just implemented the Mod. It works except for this:
If the login name has space in it (e.g. Adam Smith), interestingly, the mod makes the admin/mod name bold but no change in color

I just tested this and it s working fine for me.
I would check the spelling of the color.
If your using the active users variable, check the source (html output) and make sure it has a value.<
texanman Posted - 05 May 2008 : 10:56:55
Hello Cripto9t:

I just implemented the Mod. It works except for this:
If the login name has space in it (e.g. Adam Smith), interestingly, the mod makes the admin/mod name bold but no change in color.

I believe I have made all the changes correctly.

Any input?

Thanks<
texanman Posted - 04 May 2008 : 23:18:41
Cripto9t thanks for your efforts.
<
cripto9t Posted - 04 May 2008 : 17:09:39
Carefree I missed a few marks
Near the top of default.asp - Note that I changed the name of the variable "ModLev" to "ModMemLev" to be more consistant with existing code.
	if recModeratorCount = "" then
		fMods = " "
	else
		mFORUM_ID = 0
		mMEMBER_ID = 1
		mM_NAME = 2
'##USER_CLASS ## ADD line below #############################################################################
                mM_Lev = 3

		for iModerator = 0 to recModeratorCount
			ModForumID = allModeratorData(mFORUM_ID, iModerator)
			ModMemID = allModeratorData(mMEMBER_ID, iModerator)
			ModMemName = replace(allModeratorData(mM_NAME, iModerator),"|","#124")
'##USER_CLASS ## ADD line below ############################################################################
                        ModMemLev = cLng(allModeratorData(mM_Lev, iModerator))

			if iModerator = 0 then
'##USER_CLASS ## ADD "," & ModMemLev" to the line below ###################################################
				strForumMods = ModForumID & "," & ModMemID & "," & ModMemName & "," & ModMemLev
			else
'##USER_CLASS ## ADD "," & ModMemLev" to the line below ###################################################
				strForumMods = strForumMods & "|" & ModForumID & "," & ModMemID & "," & ModMemName & "," & ModMemLev
			end if
		next
	end if
end if

Thanks for pointing out my errors. I'm to leave the 2 marks that bring errors and point it out in the readme.<
cripto9t Posted - 04 May 2008 : 16:51:04
Nope, no db changes. Let me look at the readme because everythings working fine for me.<
Carefree Posted - 04 May 2008 : 15:18:50
Also, I now get a subscript out-of-range (Number 3) error in this function, the error is on this line:
ModMemLev = fForumMod(3)

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)
ModMemLev = fForumMod(3)
if cLng(ModForumID) = cLng(fForum_ID) then
if fMods = "" then
'##USER_CLASS ## CHANGE line below #################################################################################
fMods = "<nobr><span class=""" & GetMembersColor(ModMemLev) & """>" & profileLink(chkString(ModMemName,"display"),ModMemID) & "</span></nobr>"
else
'##USER_CLASS ## CHANGE line below #################################################################################
fMods = fMods & ", <nobr><span class=""" & GetMembersColor(ModMemLev) & """>" & profileLink(chkString(ModMemName,"display"),ModMemID) & "</span></nobr>"
end if
end if
next
if fMods = "" then fMods = " "
listForumModerators = fMods
end function


Should there have been a table change to the DBase?<
Carefree Posted - 04 May 2008 : 14:54:18
You missed a marker in forum.asp:

In your modified version, after line 455 (tM_NAME = 13), you need a marker line to identify the next line belongs to your changes.

In forum.asp; lines 543-545 need to be changed (the remark will not allow continuing):

Response.Write " </td>" & vbNewLine
'##USER_CLASS ## CHANGE line below ###################################################################################
Response.Write " <td bgcolor=""" & CColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""" & GetMembersColor(Topic_MLevel) & """>" & profileLink(chkString(Topic_MName,"display"),Topic_Author) & "</span></font></td>" & vbNewLine & _


Also, in default.asp; lines 1066 & 1068 need to be changed (the remark will not allow continuing):

"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>Please welcome our newest member: "
'##USER_CLASS ## CHANGE line below ###############################################################################
Response.Write "<span class=""" & GetMembersColor(NewMember_Level) & """>" & profileLink(NewMember_Name,NewMember_Id) & "</span>.</font></td>" & vbNewline & _

<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.09 seconds. Powered By: Snitz Forums 2000 Version 3.4.07