Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 AdminLevel Mod Question		  New Topic
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

MaGraham
Senior Member

USA
1297 Posts
Posted - 20 October 2013 :  22:09:49  Show Profile  Reply with Quote

Is there a means of allowing a member to have just enough administrative privileges in order to be able to add events to the Events Calendar?
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 21 October 2013 :  02:47:38  Show Profile
Could do it by member ID number, leave privileges set to Admin and change the programs to also allow that particular ID.
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 21 October 2013 :  03:40:33  Show Profile

Is this something that you feel up to doing, Carefree?

Member's id=63.
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 21 October 2013 :  04:48:21  Show Profile

By using your "Admin Level" mod, I have my "Admin Options" area fixed so that my admins can not see anything if they go to that area. THANK YOU for that incredible mod, Carefree!

I only wanted my admins to be able to do things much like a moderator would do and that's move posts when necessary and possibly edit posts without it leaving a message in the member's post that it's been edited.

So, the main thing I would not want this member to have the ability to do is the above but also to not be able to access member's personal info in their profiles.
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 21 October 2013 :  07:30:57  Show Profile
I'll just redo the events mod to allow ID=63 posting ability.

"forum.asp"

Look for the following line (~ 768):

if not rsCal.EOF and (intCalMLev <= MLev) then Response.Write " <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strCalIconEvent,strIconEvent,"align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & strCalNewEvent & "</a> " & vbNewLine

Change it to say:

if not rsCal.EOF and ((intCalMLev <= MLev) or (MemberID=63)) then Response.Write " <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strCalIconEvent,strIconEvent,"align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & strCalNewEvent & "</a> " & vbNewLine


"post.asp"

Look for the following line (~ 110):

if mlev < intCalMLev then Go_Result strCalNotAllowed

Change it to say:

if ((mlev < intCalMLev) AND (MemberID<>63)) then Go_Result strCalNotAllowed


"topic.asp"

Look for the following line (~ 910):

if blnCalAllowed and (intCalMLev <= MLev) then Response.Write " <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strCalIconEvent,strIconEvent,"align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & strCalNewEvent & "</a>  " & vbNewLine

Change it to say:

if blnCalAllowed and ((intCalMLev <= MLev) or (MemberID=63)) then Response.Write " <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strCalIconEvent,strIconEvent,"align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & strCalNewEvent & "</a>  " & vbNewLine
Edited by - Carefree on 21 October 2013 07:46:08
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 21 October 2013 :  10:15:04  Show Profile
quote:
Originally posted by Carefree

I'll just redo the events mod to allow ID=63 posting ability.

Oh my goodness! This is wonderful, Carefree!

I'll wait on that before doing all you shared in your post.
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 21 October 2013 :  11:19:28  Show Profile
What I shared is all that's necessary.
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 21 October 2013 :  11:25:43  Show Profile  Visit bobby131313's Homepage
I been thinking about a "Topic Mover" level.
Switch the order of your title tags
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 21 October 2013 :  17:13:00  Show Profile
Should probably start a new topic, Bobby; the security subject is similar but nobody will think to look below Ma's original post for "moving topics".
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 22 October 2013 :  06:53:48  Show Profile

It's going to be a day or two before I can get back to this, Carefree, but I'll let you know as soon as I do. I just had a few things to come up as a hindrance.


"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 23 October 2013 :  11:39:02  Show Profile

Carefree, I received the following error message:

Microsoft VBScript compilation error '800a03f8'

Expected 'Sub'

/fp/forum.asp, line 824

End if
----^



Here are lines 815-833


WriteFooter
Response.End
sub PostNewTopic()
'## Events Calendar - Adds a "New Event" Link
   strSql = "SELECT F_ALLOWEVENTS FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & Forum_ID & " AND F_ALLOWEVENTS = 1"
   set rsCal = Server.CreateObject("ADODB.Recordset")
   rsCal.Open strSql, My_conn
   if not rsCal.EOF and ((intCalMLev <= MLev) or (MemberID=63)) then Response.Write " <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strCalIconEvent,strIconEvent,"align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & strCalNewEvent & "</a> " & vbNewLine
      rsCal.Close
   End if
   set rsCal = nothing
   if Cat_Status = 0 or Forum_Status = 0 then
      if (AdminAllowed = 1) then
         Response.Write "          <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderLocked,"Category Locked","align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a><br />" & vbNewLine
      else
         Response.Write "          " & getCurrentIcon(strIconFolderLocked,"Category Locked","align=""absmiddle""") & " Category Locked<br />" & vbNewLine
      end if
   else
      if Forum_Status <> 0 then
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 23 October 2013 :  11:44:01  Show Profile
And, this error message as well:


Microsoft VBScript compilation error '800a0400'

Expected statement

/fp/post.asp, line 135

End If
^

Here are lines 118-136


'   ## Events Calendar Below
If Request.Querystring("event") = "1" Then
   blnCalAllowed = FALSE
   strSql = "Select F_ALLOWEVENTS FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & strRqForumID & " AND F_ALLOWEVENTS = 1"
   Set rsCal = Server.CreateObject("ADODB.RecordSet")
   rsCal.Open strSql, My_conn
   If not rsCal.EOF Then
      blnCalAllowed = TRUE
   End If
   rsCal.Close
   Set rsCal = Nothing
   If not blnCalAllowed Then
      Go_Result strCalError0
   End If
    if ((mlev < intCalMLev) AND (MemberID<>63)) then Go_Result strCalNotAllowed

   End If
End If
'   ## Events Calendar Above


"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Edited by - MaGraham on 23 October 2013 11:48:40
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 24 October 2013 :  10:42:40  Show Profile
Lines 815-833


WriteFooter
Response.End
sub PostNewTopic()
	'## Events Calendar - Adds a "New Event" Link
	strSql = "SELECT F_ALLOWEVENTS FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & Forum_ID & " AND F_ALLOWEVENTS = 1"
	set rsCal = Server.CreateObject("ADODB.Recordset")
	rsCal.Open strSql, My_conn
	if not rsCal.EOF and ((intCalMLev <= MLev) or (MemberID=63)) then 
		Response.Write " <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strCalIconEvent,strIconEvent,"align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&event=1&FORUM_ID=" & Forum_ID & """>" & strCalNewEvent & "</a> " & vbNewLine
		rsCal.Close
	End if
	set rsCal = nothing
	if Cat_Status = 0 or Forum_Status = 0 then
		if (AdminAllowed = 1) then
			Response.Write "          <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderLocked,"Category Locked","align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a><br />" & vbNewLine
		else
			Response.Write "          " & getCurrentIcon(strIconFolderLocked,"Category Locked","align=""absmiddle""") & " Category Locked<br />" & vbNewLine
		end if
	else
		if Forum_Status <> 0 then


Lines 118-136:

'   ## Events Calendar Below
If Request.Querystring("event") = "1" Then
	blnCalAllowed = FALSE
	strSql = "Select F_ALLOWEVENTS FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & strRqForumID & " AND F_ALLOWEVENTS = 1"
	Set rsCal = Server.CreateObject("ADODB.RecordSet")
	rsCal.Open strSql, My_conn
	If not rsCal.EOF Then
		blnCalAllowed = TRUE
		rsCal.Close
	End If
	Set rsCal = Nothing
	If not blnCalAllowed Then
		Go_Result strCalError0
	End If
	if ((mlev < intCalMLev) AND (MemberID<>63)) then 
		Go_Result strCalNotAllowed
	End If
End If
'   ## Events Calendar Above
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 24 October 2013 :  11:12:50  Show Profile

It appears to be working great! No error messages!

I'll get the member to see if he can post an event.

Thank you so much, Carefree!
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 25 October 2013 :  05:29:02  Show Profile
When the member tries to add an event, he receives the following error:

You are not allowed to post an event.
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 25 October 2013 :  09:31:17  Show Profile
Missed one, sorry.

"cal_post_info1.asp"

Look for this line (~24):


    If mlev < intCalMLev Then Go_Result strCalNotAllowed, 0

Change it to say:

    If (mlev < intCalMLev AND MemberID<>63) Then Go_Result strCalNotAllowed, 0
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next Page
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.32 seconds. Powered By: Snitz Forums 2000 Version 3.4.07