Hiding Members List - Private Forums - Posted (3463 Views)
Starting Member
ssneumann
Posts: 1
1
I have used these forums many times since launching one of my forums a few years ago and happy to say I have never had to register and ask a question... until now.
I have searched for a resolution for quite some time and get results but not for exactly what I am trying to accomplish. I hope someone can help me.
I operate a forum/message board as a feature on one of my community portals. I have several groups or councils that I have set up private forum areas reserved just for them. The problem is that these groups would like to use their real names as their usernames, ie. JohnDoe.
To them, this is great because it's like wearing a name tag at a conference. Of course, I have suggested they not do this, but am determined to find them a solution.
What they don't want is obvious - their usernames showing up in the member list and being visible to any registered member. They would like them to only be visible from inside their own private forum.
I know that it can be done by ranking level if I make them all moderators. I also know I can completely remove access to the member list, but don't want to do that either.
Sorry if this sounds stupid, but I can't seem to figure out the best way to do this. Any ideas?
<moved from="Help: General / Current Version (v3.4.xx)" by="Shaggy" /><
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
Junior Member
campinmom03
Posts: 190
190
JJenson, or maybe this code I found will work?
If (mLev >= 3) or (CLng(rs("MEMBER_ID")) = MemberId) Then
... display the fields here
end if

I tried it out with no luck. Profiles wouldn't come up at all. But then again maybe I added it to the wrong line. Not sure. At least I have some stuff to go on and check out.

Let me know what you think.<
Have a great day! Terry
Posted
Junior Member
campinmom03
Posts: 190
190
JJenson,

I figured it out and it works! I'll post everthing I did to achieve this for the next member who wants this done.

The Super Bowl is gonna start soon. So I'll gather this all up and have it ready to post on this thread this week coming.
Go Giants! bigsmile
<
Have a great day! Terry
Posted
Forum Moderator
AnonJr
Posts: 5768
5768
Being a Patriots fan, last night was a heart-breaker. At least it was a hard-fought game. I'll start a different topic for that though. wink
Glad you figured out what you needed. Just don't forget to share... smile<
Posted
Junior Member
campinmom03
Posts: 190
190
Here is the info I was able to get so that First, Last Name and Country was required upon registration along with *'s for those fields.

I would like to add, that I only wanted the those fields required upon registration. (If your looking for other fields to be required, do a search cause plenty of them will turn up). For those though that want what I did, go here:

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=61025&SearchTerms=adding,first,and,last,name

The above link explains exactly how to get those fields required for members when they register. (Be sure to always back up before attempting any code changes). Once this has been implemented successfully, do the following below in pop_profile.asp only! (My site is loaded with mods, so I'm not sure where you would find the following code, but for mine the line needed was found on around 541)

Look for this block of code

Code:
Response.Write	"                    <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Real Name: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("M_FIRSTNAME"), "display") & " " & ChkString(rs("M_LASTNAME"), "display") & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if





Now add this line of code directly above the code you found.
Code:
if strFullName = "1" and mlev > 3 and (Trim(rs("M_FIRSTNAME")) <> "" or Trim(rs("M_LASTNAME")) <> "" ) then

So that it looks like this:

Code:
 if strFullName = "1" and mlev > 3 and (Trim(rs("M_FIRSTNAME")) <> "" or Trim(rs("M_LASTNAME")) <> "" ) then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Real Name: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("M_FIRSTNAME"), "display") & " " & ChkString(rs("M_LASTNAME"), "display") & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if

This last step just above, will only make the members First and Last name private from other members when they are viewing other members profiles, as that is all I needed. Again, if your looking to make other fields private do a search and you will find what your looking for... hopefully anyway.

I surely hope this helps someone in the future. smile<
Have a great day! Terry
You Must enter a message