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: General / Classic ASP versions(v3.4.XX)
 Private Groups
 New Topic
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 4

MaGraham
Senior Member

USA
1297 Posts

Posted - 17 May 2013 :  05:22:42  Show Profile

It's working now.

THANK YOU!!


"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 - 17 May 2013 :  05:28:42  Show Profile

How do I get rid of the comma (,) between the members' avatars, 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

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 17 May 2013 :  10:22:46  Show Profile
Delete line 137 in "groupjoin.asp"
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 17 May 2013 :  12:32:41  Show Profile

That worked!

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

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 17 May 2013 :  23:35:50  Show Profile
You're welcome.
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 14 October 2013 :  10:38:20  Show Profile

First of all, I am LOVING this mod with the tweaks you made, Carefree!

Just a quick question. . .when a member clicks to join/quit a group he/she is automatically taken to the area in which he/she can view WHO the members are of each group. Is there a simple way to make that member go back to the page they were viewing AFTER he/she joins / quits a group rather than the above mentioned?

This would make the groups a bit more private since it would eliminate the ability of anyone viewing the list of members of a group unless / until they join.


"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 - 14 October 2013 :  11:25:39  Show Profile
Here's my groupjoin.asp.



<%
'###############################################################################
'##
'##                 Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##             Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.  The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; If not, write to:
'##
'##             Free Software Foundation, Inc.
'##             59 Temple Place, Suite 330
'##             Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##               http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##                manderson@snitz.com
'##
'###############################################################################
'##
'##   "groupjoin.asp"  For User Groups Mod - Allowed Joining
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<%
Response.Write "      <table border=""0"" width=""100%"">" & vbNewLine & _
      "        <tr>" & vbNewLine & _
      "          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
      "          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">COMMUNITY HOME</a><br />" & vbNewLine & _
      "          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""groupjoin.asp"">User Groups </a><br />" & vbNewLine & _
      "        </tr>" & vbNewLine & _
      "      </table><br />" & vbNewLine
If Request.QueryString("VG")="1" and len(Request.QueryString("IG"))>0 Then
   If isNumeric(Request.QueryString("IG")) Then
      intGroup=cInt(Request.QueryString("IG"))
      strSql = "SELECT * FROM " & strTablePrefix & "USERGROUPS WHERE USERGROUP_ID=" & intGroup
      Set rsGroup=my_Conn.Execute(strSql)
      If not rsGroup.EOF Then
         strName=rsGroup("usergroup_name")
         strDesc=rsGroup("usergroup_desc")
         intHide=rsGroup("mem_hide")
         intAllow=rsGroup("allowjoin")
         rsGroup.Close
         If intHide<>1 and intAllow=1 Then
            strSqll="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
            Set rsMem=my_Conn.Execute(strSqll)
            If not rsMem.EOF Then
               intJoin=1
               rsMem.Close
            Else
               intJoin=0
            End If
            Set rsMem=Nothing
            strSql="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup
            Set rsMem=my_Conn.Execute(strSql)
            If not rsMem.EOF Then
               Response.Write "<table align=""center"" width=""95%"" cellpadding=""0"" cellspacing=""0"" bgColor=""transparent"">" & vbNewLine & _
                  "  <tr valign=""middle"">" & vbNewLine & _
                  "     <td align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """>" & vbNewLine & _
                  "        <table align=""center"" width=""100%"" cellpadding=""4"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
                  "           <tr valign=""middle"" height=""60px;"" bgColor=""" & strCategoryCellColor & """>" & vbNewLine & _
                  "              <td align=""center"" colspan=""4"" width=""100%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strHeaderFontSize+2 & """><b>USER GROUPS</b>" & vbNewLine & _
                  "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "           </tr>" & vbNewLine & _
                  "           <tr valign=""middle"" bgColor=""" & strHeadCellColor & """>" & vbNewLine & _
                  "              <td align=""center"" width=""25%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Group Name</b>" & vbNewLine & _
                  "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "              <td align=""center"" width=""30%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Group Description</b>" & vbNewLine & _
                  "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "              <td align=""center"" width=""40%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Group Members</b>" & vbNewLine & _
                  "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "              <td align=""center"" width=""5%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Action</b>" & vbNewLine & _
                  "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "           </tr>" & vbNewLine & _
                  "           <tr bgColor=""" & strForumCellColor & """>" & vbNewLine & _
                  "              <td valign=""top"" align=""left"" width=""25%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & strName & vbNewLine & _
                  "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "              <td valign=""top"" align=""left"" width=""30%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & FormatStr(strDesc) & vbNewLine & _
                  "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "              <td valign=""top"" align=""left"" width=""40%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & vbNewLine
               rsMem.MoveFirst
               Do while not rsMem.EOF
                  strSql2 = "SELECT * FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & rsMem("MEMBER_ID") & " AND M_STATUS>0"
                  Set rsData=my_Conn.Execute(strSql2)
                  If not rsData.EOF Then
                     Response.Write "<a href=""pop_profile.asp?mode=display&id=" & rsData("MEMBER_ID") & """ target=""_blank""><acronym style=""border:none; text-decoration:none"" title=""View " & rsData("M_NAME") & "'s Profile"">"
                     If strShowAvatar=1 and len(rsData("M_Avatar_URL"))>4 Then
                        Response.Write "<img src=""" & rsData("M_Avatar_URL") & """ height=""35"" alt=""" & rsData("M_NAME") & """ style=""border:none"" />"
                     Else
                        Response.Write rsData("M_NAME")
                     End If
                     Response.Write "</acronym></a>"
                     rsData.Close
                  End If
                  Set rsData=Nothing
                  rsMem.MoveNext
                  If not rsMem.EOF Then Response.Write   " "
               Loop
               rsMem.Close
               Response.Write "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "              <td align=""center"" valign=""top"" width=""5%"">" & vbNewLine
               If intJoin=0 Then
                  Response.Write "                 <a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Join Group") & "><acronym style=""border:none; text-decoration:none"" title=""Join Group""><img src="""& strImageURL &"icon_join.png"" width=""35"" height=""20"" style=""border:none"" alt=""Join Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
               Else
                  Response.Write "                 <a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Quit Group") & "><acronym style=""border:none; text-decoration:none"" title=""Quit Group""><img src="""& strImageURL &"icon_quit.png"" width=""35"" height=""20"" style=""border:none"" alt=""Quit Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
               End If
               If intHide<>1 Then
                  Response.Write "                 <a href=""groupjoin.asp?IG="&intGroup&"&VG=1""" & dWStatus("View Group") & "><acronym style=""border:none; text-decoration:none"" title=""View Group""><img src="""& strImageURL &"icon_view.png"" width=""35"" height=""20"" height=""20"" style=""border:none"" alt=""View Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
               End If
               Response.Write "              </td>" & vbNewLine & _
                  "           </tr>" & vbNewLine & _
                  "        </table>" & vbNewLine & _
                  "     </td>" & vbNewLine & _
                  "  </tr>" & vbNewLine & _
                  "</table>" & vbNewLine
            Else
               Response.Write "<table align=""center"" width=""95%"" cellpadding=""0"" cellspacing=""0"" bgColor=""transparent"">" & vbNewLine & _
                  "  <tr valign=""middle"">" & vbNewLine & _
                  "     <td align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """>" & vbNewLine & _
                  "        <table align=""center"" width=""100%"" cellpadding=""4"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
                  "           <tr valign=""middle"" height=""60px;"" bgColor=""" & strCategoryCellColor & """>" & vbNewLine & _
                  "              <td align=""center"" colspan=""4"" width=""100%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strHeaderFontSize+2 & """><b>User Groups</b>" & vbNewLine & _
                  "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "           </tr>" & vbNewLine & _
                  "           <tr valign=""middle"" height=""60px;"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
                  "              <td align=""center"" colspan=""4"" width=""100%"">" & vbNewLine & _
                  "                 <font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>No Members" & vbNewLine & _
                  "                 </font>" & vbNewLine & _
                  "              </td>" & vbNewLine & _
                  "           </tr>" & vbNewLine & _
                  "        </table>" & vbNewLine & _
                  "     </td>" & vbNewLine & _
                  "  </tr>" & vbNewLine & _
                  "</table>" & vbNewLine
            End If
            Set rsMem=Nothing
         End If
      End If
      Set rsGroup=Nothing
   End If
   WriteFooter
   Response.End
End If
If len(Request.QueryString("IG"))>0 Then
   If isNumeric(Request.QueryString("IG")) Then
      intGroup=cInt(Request.QueryString("IG"))
      strSql="SELECT * FROM " & strTablePrefix & "USERGROUPS WHERE USERGROUP_ID=" & intGroup
      Set rsCheck=my_Conn.Execute(strSql)
      If not rsCheck.EOF Then
         intAllow=rsCheck("AllowJoin")
         rsCheck.Close
      End If
      Set rsCheck=Nothing
      If intAllow=1 Then
         strSql="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
         Set rsGroup=my_Conn.Execute(strSql)
         If not rsGroup.EOF Then
            rsGroup.Close
            Set rsGroup=Nothing
            strSql="DELETE FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
            If strDBType="access" Then
               strSql="DELETE * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
            End If
            my_Conn.Execute(strSql)
            Response.Write "<p align=""center"">Quit Group</p>" & vbNewLine
         Else
            Set rsGroup=Nothing
            my_Conn.Execute("INSERT INTO " & strTablePrefix & "USERGROUP_USERS (USERGROUP_ID, MEMBER_ID, MEMBER_TYPE) VALUES (" & intGroup & ", " & MEMBERID & ", 1)")
            Response.Write "<p align=""center"">Joined Group</p>" & vbNewLine
         End If
      Else
         Response.Write "<p align=""center"">Not found!</p>"
      End If
      Response.Write "<meta http-equiv=""Refresh"" content=""4; URL=groupjoin.asp"" />" & vbNewLine
      WriteFooter
      Response.End
   End If
End If
Response.Write "<table align=""center"" width=""95%"" cellpadding=""0"" cellspacing=""0"" bgColor=""transparent"">" & vbNewLine & _
   "  <tr valign=""middle"">" & vbNewLine & _
   "     <td align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """>" & vbNewLine & _
   "        <table align=""center"" width=""100%"" cellpadding=""4"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
   "           <tr valign=""middle"" height=""60px;"" bgColor=""" & strCategoryCellColor & """>" & vbNewLine & _
   "              <td align=""center"" colspan=""3"" width=""100%"">" & vbNewLine & _
   "                 <font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strHeaderFontSize+2 & """><b>User Groups</b>" & vbNewLine & _
   "                 </font>" & vbNewLine & _
   "              </td>" & vbNewLine & _
   "           </tr>" & vbNewLine & _
   "           <tr valign=""middle"" bgColor=""" & strHeadCellColor & """>" & vbNewLine & _
   "              <td align=""center"" width=""40%"">" & vbNewLine & _
   "                 <font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Group Name</b>" & vbNewLine & _
   "                 </font>" & vbNewLine & _
   "              </td>" & vbNewLine & _
   "              <td align=""center"" width=""55%"">" & vbNewLine & _
   "                 <font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Group Description</b>" & vbNewLine & _
   "                 </font>" & vbNewLine & _
   "              </td>" & vbNewLine & _
   "              <td align=""center"" width=""5%"">" & vbNewLine & _
   "                 <font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Action</b>" & vbNewLine & _
   "                 </font>" & vbNewLine & _
   "              </td>" & vbNewLine & _
   "           </tr>" & vbNewLine
strSql="SELECT * FROM " & strTablePrefix & "USERGROUPS WHERE ALLOWJOIN=1 AND MEM_HIDE=0"
Set rsToggle=my_Conn.Execute(strSql)
If not rsToggle.EOF Then
   intI=0
   rsToggle.MoveFirst
   Do while not rsToggle.EOF
      If intI=0 Then CColor=strForumFirstCellColor Else CColor=strAltForumCellColor
      intGroup=rsToggle("USERGROUP_ID")
      strGroup=rsToggle("USERGROUP_NAME")
      strDesc=rsToggle("USERGROUP_DESC")
      intHide=rsToggle("MEM_HIDE")
      strSql1="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
      Set rsJoin=my_Conn.Execute(strSql1)
      If not rsJoin.EOF Then
         intJoin=1
         rsJoin.Close
      Else
         intJoin=0
      End If
      Set rsJoin=Nothing
      Response.Write "           <tr valign=""middle"" bgColor=""" & CColor & """>" & vbNewLine & _
         "              <td align=""left"" size=""40%"">" & vbNewLine & _
         "                 <font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & strGroup & vbNewLine & _
         "                 </font>" & vbNewLine & _
         "              </td>" & vbNewLine & _
         "              <td align=""left"" size=""55%"">" & vbNewLine & _
         "                 <font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & formatstr(strDesc) & vbNewLine & _
         "                 </font>" & vbNewLine & _
         "              </td>" & vbNewLine & _
         "              <td align=""absmiddle"" size=""5%"">" & vbNewLine
      If intJoin=0 Then
         Response.Write "                 <a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Join Group") & "><acronym style=""border:none; text-decoration:none"" title=""Join Group""><img src="""& strImageURL &"icon_join.png"" width=""35"" height=""20"" style=""border:none"" alt=""Join Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
      Else
         Response.Write "                 <a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Quit Group") & "><acronym style=""border:none; text-decoration:none"" title=""Quit Group""><img src="""& strImageURL &"icon_quit.png"" width=""35"" height=""20"" style=""border:none"" alt=""Quit Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
      End If
      If intHide<>1 Then
         Response.Write "                 <a href=""groupjoin.asp?IG="&intGroup&"&VG=1""" & dWStatus("View Group") & "><acronym style=""border:none; text-decoration:none"" title=""View Group""><img src="""& strImageURL &"icon_view.png"" width=""35"" height=""20"" style=""border:none"" alt=""View Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
      End If
      Response.Write "              </td>" & vbNewLine & _
         "           </tr>" & vbNewLine
      intI=1-intI
      rsToggle.MoveNext
   Loop
   rsToggle.Close
Else
   Response.Write "           <tr valign=""middle"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
      "              <td align=""center"" colspan=""3"" width=""100%"">" & vbNewLine & _
      "                 <font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>No available groups found." & vbNewLine & _
      "                 </font>" & vbNewLine & _
      "              </td>" & vbNewLine & _
      "           </tr>" & vbNewLine
End If
Set rsToggle=Nothing
Response.Write "        </table>" & vbNewLine & _
   "     </td>" & vbNewLine & _
   "  </tr>" & vbNewLine & _
   "</table>" & vbNewLine
WriteFooter
%>




"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
4217 Posts

Posted - 14 October 2013 :  11:32:29  Show Profile
Let me know if this doesn't take you where you want to go.

"groupjoin.asp"


Look for the following line (appx 217):

		Response.Write	"<meta http-equiv=""Refresh"" content=""4; URL=groupjoin.asp"" />" & vbNewLine

Change it to say:


		Response.Write	"<script>javascript:history.go(-2);</script>" & vbNewLine

Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 14 October 2013 :  11:55:34  Show Profile
I changed the "-2" to "-1" and it worked PERFECT!

Thank you so much, Carefree! You are so appreciated!!

And, thank you for your QUICK response!


"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 - 14 October 2013 :  12:00:58  Show Profile
Hey, I just tested this by leaving and then rejoining a few groups and the "Quit" and "Join" page displays for about a blink of an eye and twice it was so FAST that it didn't appear to display at all. (lol) Is there a way to make that page pause for a couple of seconds?

Or, is that just my super fast new domain's loading time?


"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 - 14 October 2013 :  12:07:02  Show Profile
Well, this probably wasn't the best idea, Carefree. This doesn't allow members to EVER view the list of members in a group.

What could we do to allow them to only view the members of a group after they've joined and view ONLY that particular group since before, they could view ALL groups after joining only one.



"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 14 October 2013 12:07:59
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 14 October 2013 :  18:29:47  Show Profile
In the usergroups manager within the admin panel, set the values of "UserGroup Information" and "UserGroup Members" visible to UserGroup Members, and undo that last modification.

Edited by - Carefree on 14 October 2013 18:39:37
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 14 October 2013 :  19:49:21  Show Profile
I'll have to come back to this just above, Carefree.

I have another question that's more pressing at the moment.

I placed a link beside each "Group" for members to click on if they wanted to join/quit a group. Here's the link with the group ID: groupjoin.asp?IG=8

However; some members are saying it's not working for them and they are receiving an error message (you need to join the group or something similar) when they try to get into a group after clicking the link and thinking it had allowed them to join.

Any ideas as to what's causing this?


"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
4217 Posts

Posted - 15 October 2013 :  03:04:04  Show Profile
There's no such message. If the usergroup does not exist or does not have joining allowed, they'll receive a "Not found" message. Otherwise they will join/quit the group.
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 15 October 2013 :  12:18:49  Show Profile

They are saying everything is now working. Thank you so much for your time, 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
Page: of 4 Previous Topic Topic Next Topic  
Previous Page | 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.47 seconds. Powered By: Snitz Forums 2000 Version 3.4.07