MOD: Admin Level Revisited for 3.4 - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

MOD: Admin Level Revisited for 3.4 - Posted 30 Sep 2005 22:01 (3250 Views)

SiSL

Average Member

Posts: 671

671

Admin Level Revisited for Snitz 3.4
AUTHOR: Selçuk Islamoglu (SiSL)
Initial Release : 10/1/2005

This mod is designed over original Admin Level mod by David Kohen (Copyright David Kohen (2002) and the Snitz Forums 2000 development team.). Differently, you can select from 3 administrator types. Global moderators, Maintenance Administrators and Super admins and Master Admin (that's you!)

Features:
- Administrators can set to 3 groups
- Global moderators can not access to any administration options
- Maintenance Admins and Super admins can access to defined administrator pages.
- Super admins can access every page that Maintenance Admins can.
- Administrators can edit inferior level administrators details.
- You can edit which group of administrators can access to which pages by editing file list include.

Cons
- This mod assumes all administration page names starting with "admin_" as a Snitz Modding custom.

Download here
(PS: As an Archieve-searching handicapped, I apologize if similiar mod for categorizing admins over AdminLevel mod has been previously released)
<

Last edited by SiSL on 30 September 2005, 22:03

Posted 01 Oct 2005 11:06

SiSL

Average Member

Posts: 671

671

UPDATE: Install.htm due its being of Dreamweaver prepared, ate some of " and ") updated install.htm in same link.<

Posted 23 Aug 2008 06:57

BroIgnatius

New Member

Posts: 56

I have installed this Admin Level Revisited but cannot get it to work.
I think there is a coding error in the inc_profile.asp file. In the modify Profile mode it should have a drop down box for the levels. All I get is TEXT of the levels all running together.

I have tried numerous things to fix this but to no avail.
Is anybody else using this MOD who can help with this?
<

Last edited by BroIgnatius on 23 August 2008, 16:44

Posted 23 Aug 2008 08:03

Etymon

Advanced Member

Posts: 2396

2396

I'll install it here in a minute or so and see if I can find out what's the matter with it.<

Posted 23 Aug 2008 11:23

Carefree

Advanced Member

Posts: 4224

4224

From the looks of it, you have a problem with the select command. Post a link to your "inc_profile.asp" in .txt format & we can take a look.<

Posted 23 Aug 2008 16:38

BroIgnatius

New Member

Posts: 56

Here's the link
inc_profile.asp.txt
Thanks. <

Posted 23 Aug 2008 20:41

Etymon

Advanced Member

Posts: 2396

2396

In the dbs_ I saw a problem, but to understand it look at the mod code for inc_profile.asp:

if rs("M_ALEVEL") = 3 Then Response.Write "FORUM MASTER"
if rs("M_ALEVEL") = 2 Then Response.Write "Super Admin"
if rs("M_ALEVEL") = 1 Then Response.Write "Maintenance Admin"
if rs("M_ALEVEL") = 0 Then Response.Write "Global Moderator"

The FORUM MASTER, in Snitz terms, is the Member ID designation for intAdminMemberID

In a standard Snitz install, intAdminMemberID is a constant and set to Member_ID number 1

In the dbs_ for this MOD it does not look for the intAdminMemberID and sets all admins to the value of 1 for the M_ALEVEL column. Well, that was the intention. For me, it kept my M_ALEVEL at 0 for my intAdminMemberID.
If you are the intAdminMemberID, then get into your database and set your M_ALEVEL to 3, and then you should see the dropdown.
The other problem I saw was the placement for the dropdown. It said to look for this code:

Code:

		if rs("MEMBER_ID") = intAdminMemberID then
			Response.Write	"                      <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Administrator</font>" & vbNewLine & _
					"                      <input type=""hidden"" value=""3"" name=""Level"">" & vbNewLine
		else
			Response.Write	"                      <select value=""1"" name=""Level"">" & vbNewLine & _
					"                           <option value=""1"""
			if rs("M_LEVEL") = 1 then Response.Write(" selected")
			Response.Write	">Normal User</option>" & vbNewLine & _
					"                           <option value=""2"""
			if rs("M_LEVEL") = 2 then Response.Write(" selected")
			Response.Write	">Moderator</option>" & vbNewLine & _
					"                           <option value=""3"""
			if rs("M_LEVEL") = 3 then Response.Write(" selected")
			Response.Write	">Administrator</option>" & vbNewLine & _
					"                      </select>" & vbNewLine
		end if
		Response.Write	"                      </td>" & vbNewLine & _
				"                    </tr>" & vbNewLine
	end if
	if not(strUseExtendedProfile) then

and to add the MOD's code just before the end if statement. There are two end if statements there. It should be inserted after the </tr>" & vbNewLine and before the second end if.
Try those things and post back what you get.<