| Author |
 Topic  |
|
|
pauferra
Starting Member
4 Posts |
 Posted - 29 August 2002 : 10:19:13
|
This may be the wrong forum to post this in, but i am wondering if anyone has does this yet with a mod.
I have used version 3.3.03 for some time now. everything has been running great. however, over time the users list gets large and although its easy to delete them, I am having the following issue.
When I go to create a new forum within a category, I have to manually add a ton of people back in. I usually end up opening the properties for another similar forum (in a new window) and adding them back one by one while reading off that list. has anyone made a MOD that would allow you to maybe have a dropdown list for the other forums, where you could make it use the same access list as another forum? |
|
|
tangoc9999
Junior Member
USA
158 Posts |
|
|
pauferra
Starting Member
4 Posts |
Posted - 29 August 2002 : 11:19:55
|
| thanks, gonna give this a try. :) |
 |
|
|
pauferra
Starting Member
4 Posts |
Posted - 29 August 2002 : 13:34:32
|
| Well, I followed the instructions and every seems to work fine, but when I got to make a new post, the modifcation made seems to be there too, instead of just in the admin portion (forum creation). it shows up in every new post and reply. I am going to try to see if i can email the author. -thanks again. |
|
|
|
pauferra
Starting Member
4 Posts |
Posted - 29 August 2002 : 13:49:04
|
ok I triple checked that I followed the instructions right. here is a paste from the instructions for this MOD, anyone have any ideas? I can't find an email for the author anywhere in the zip/txt or on this site. -thanks
Copy Access List Mod Version 1.0 - README.TXT
Compatability V3.3.03
Ease of Installation (1 - Hard - 10 Easy): 7
Released 19 January 2002
Demo Site: None available presently, check screen shot in archive.
This mod gives the administrators the ability to copy an Access List from one forum to another.
WARNING: When copying the access list from Forum A to Forum B, the existing member list for Forum A is
first DELETED !
Limited testing has been conducted on this MOD so please ensure you backup anything required
to un-install this MOD.
--------------------------------------------------------
Files requiring modification:
* post.asp
* post_info.asp
Files included in archive
* post.asp
* post_info.asp
* README.TXT
* Screenshot.gif
--------------------------------------------------------
Ensure you have backups of all files before attempting ANY modification.
1) Edit post.asp
================
--- Approx Line 971-976 You will find the following code
<%
'#################################################################################
'## Allowed User - End of listbox code
'#################################################################################
end if
end if
--- Insert the folowing lines directly after it
'#####################################################
'## Start - Copy Access List from another forum MOD ##
'#####################################################
Response.Write " <tr valign=""top"">" & vbNewLine & _
" <td align=""right"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Warning:</b></td>" & vbNewLine & _
" <td align=""left"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & _
" Copying the member list from one forum to another, will result in <br>the member list for this forum " & _
" being <b>completely erased</b> first.</font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>"
Response.Write " <tr>" & vbNewline & _
" <td nowrap align=""right"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <b>Copy Userlist:</font></td>" & vbNewline & _
" <td bgColor=""" & strPopUpTableColor & """> <input name=""CopyACL"" type=""checkbox"" value=""1""> " & vbNewline & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Copy access from:</b> </font>"
strSQL = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT FROM " & strTablePrefix & "FORUM"
strSQL = strSQL & " ORDER BY " & strTablePrefix & "FORUM.F_SUBJECT"
set rsACL = my_Conn.execute (strSql)
Response.Write " <SELECT name=""ACLList"">"
while not (rsACL.EOF or rsACL.BOF)
Response.Write " <option value=""" & rsACL("FORUM_ID") & """>" & rsACL("F_SUBJECT") & "</option>"
rsACL.MoveNext()
wend
Response.Write " </select>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>"
'###################################################
'## End - Copy Access List from another forum MOD ##
'###################################################
--------------------------------------------------------
2) Edit post_info.asp
=====================
--- Approx Line 1490 You will find the start of the newForumMembers sub
--- Replace the entire sub with the following
sub newForumMembers(fForumID)
on error resume next
if (Request.Form("AuthUsers") = "" and Request.Form("CopyACL") <> 1) then
exit Sub
end if
if Request.Form("CopyACL") = 1 then
strSql = "INSERT INTO " & strTablePrefix & "ALLOWED_MEMBERS ("
strSql = strSql & " MEMBER_ID, FORUM_ID ) SELECT MEMBER_ID, '" & fForumID & "' FROM " & strTablePrefix & "ALLOWED_MEMBERS"
strSql = strSql & " WHERE FORUM_ID = " & Request.Form("ACLList")
my_conn.execute (strSql)
if err.number <> 0 then Go_Result err.Description, 0
exit sub
else
Users = split(Request.Form("AuthUsers"),",")
for count = Lbound(Users) to Ubound(Users)
strSql = "INSERT INTO " & strTablePrefix & "ALLOWED_MEMBERS ("
strSql = strSql & " MEMBER_ID, FORUM_ID) VALUES ( "& Users(count) & ", " & fForumID & ")"
my_conn.execute (strSql)
if err.number <> 0 then
Go_REsult err.description, 0
end if
next
end if
end sub
--------------------------------------------------------
That's it, upload the new files to your host.
|
|
|
| |
Topic |
|
|
|
Topic Locked
