BUG. User Online Status.

Hello.

I don't know whether this has been posted before, but I decided to share with you just in case. Hopefully this this fix will be integrated in WWF 8, so I don't have to re-patch the pages every time I upgrade.

When a user chooses to login anonymously, she sets the Add me to Active Users list option to No, on the Login screen.
This removes her nickname from the Member(s) online, on the Forum Statistics at the bottom on the main page, and it also shows her as "Anonymous" on the Active Users page. But there is a couple of places (that I know of) where the user status is "exposed", even if she decided to login anonymously:

1. Right under the avatar on a recent post, you see "Online Status: Online"  (the Active Posts link makes this even easier).
2. On the User Profile popup, it shows "Online Status: Online".

So to fix this, add the code marked in red on the following two pages:

----------
1. On forum_posts.asp, change following lines:

For intArrayPass = 1 To UBound(saryActiveUsers, 2)
  If saryActiveUsers(1, intArrayPass) = lngUserID Then blnIsUserOnline = True
Next

like this:

For intArrayPass = 1 To UBound(saryActiveUsers, 2)
  If saryActiveUsers(1, intArrayPass) = lngUserID _
    And Not CBool(saryActiveUsers(7, intArrayPass)) Then blnIsUserOnline = True
Next

Hello borg,

For intArrayPass = 1 To UBound(saryActiveUsers, 2)


  If saryActiveUsers(1, intArrayPass) = lngUserID And (Not CBool(saryActiveUsers(7, intArrayPass)
Or bShowAnonymousUsersAsOffline) Then blnIsUserOnline = True


Next