The moderator controls do not show up on default.asp, and on forum.asp there is no need for the new topic icon, and for moderators delete forum and archive forum cannot be accessed, so those buttons be removed.
Default.asp
Line #361 change this:
if AdminAllowed = "Y" or (lcase(strNoCookies) = "1") then
to this:
if ModerateAllowed = "Y" or (lcase(strNoCookies) = "1") then
Line #525 change this:
if (AdminAllowed = "Y") or (lcase(strNoCookies) = "1") then
to this:
if (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then
Line #540 change this:
if (rs("CAT_STATUS") <> 0 and rsForum("F_STATUS") <> 0) or (AdminAllowed = "Y") then
to this:
if (rs("CAT_STATUS") <> 0 and rsForum("F_STATUS") <> 0) or (ModerateAllowed = "Y") then
Forum.asp
on line #531 find this code:
<a href="JavaScript:openWindow('pop_delete.asp?<%= ArchiveLink %>mode=Forum&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&Forum_Title=<% =ChkString(Forum_Subject,"JSurlpath") %>')"><img src="icon_folder_delete.gif" alt="Delete Forum" height=15 width=15 border=0></a>
<a href="admin_forums.asp?action=archive&id=<% =Forum_ID %>"><img src="icon_folder_archive.gif" alt="Archive Forum" height=15 width=15 border=0></a>
change it to this:
<% if mLev = 4 then %>
<a href="JavaScript:openWindow('pop_delete.asp?<%= ArchiveLink %>mode=Forum&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&Forum_Title=<% =ChkString(Forum_Subject,"JSurlpath") %>')"><img src="icon_folder_delete.gif" alt="Delete Forum" height=15 width=15 border=0></a>
<a href="admin_forums.asp?action=archive&id=<% =Forum_ID %>"><img src="icon_folder_archive.gif" alt="Archive Forum" height=15 width=15 border=0></a>
<% end if %>
----
-Eric (da_stimulator)
Stims Snitz Test area - Running 3.3.03, 4 beta, Huw's code, and Davio's code
Need a Mod? Check out the Mod Resource