You can also customize active users to not display a link when a member uses the private messages pages. By using this example, active_users.asp will only display text for all the private message-pages.
This requires changes in two files, active_users.asp and the lang-file that you are using.
In active_users.asp the changes are all made in the function WhatPage(fScript, fQuery).
Look for this code on approx line 529:
end select
case else
strPage = strPage & Mid(fScript, 1, instr(fScript, ".")-1)
end select
Replace that with the following:
end select
case "pm_view.asp"
strOnlineLocation = fLang(strLangMOD_Ls3kAU_01530)
case "pm_options.asp"
strOnlineLocation = fLang(strLangMOD_Ls3kAU_01531)
case "privatesend.asp"
strQuery = fQuery
fMethod = analyzeQuery(strQuery, "method")
if lcase(fMethod) = "topicquote" OR lcase(fMethod) = "replyquote" then
fMethod = "reply"
end if
select case lcase(fMethod)
case "reply"
strOnlineLocation = fLang(strLangMOD_Ls3kAU_01533)
case "topic"
strOnlineLocation = fLang(strLangMOD_Ls3kAU_01532)
case else
strOnlineLocation = fLang(strLangMOD_Ls3kAU_01532)
end select
case "privateread.asp"
strOnlineLocation = fLang(strLangMOD_Ls3kAU_01534)
case else
strPage = strPage & Mid(fScript, 1, instr(fScript, ".")-1)
end select
Look for the following on approx. line 538:
WhatPage = strPage
end function
Replace that with the following:
if strOnlineLocation <> "" then strPage = strOnlineLocation
WhatPage = strPage
end function
That's it for active_users.asp. Then you need to add the strings to the language file that you are using. Im using the LangMODS_Ls3kAU4_1033.asp to show where to add the code:
Look for the following on approx line 119:
strLangMOD_Ls3kAU_01510 = "Click to see"
strLangMOD_Ls3kAU_01520 = "'s MSN Messenger address"
Replace that with the following block of code:
strLangMOD_Ls3kAU_01510 = "Click to see"
strLangMOD_Ls3kAU_01520 = "'s MSN Messenger address"
strLangMOD_Ls3kAU_01530 = "Private Messages Inbox"
strLangMOD_Ls3kAU_01531 = "Private Messages Options"
strLangMOD_Ls3kAU_01532 = "Sending a Private Message"
strLangMOD_Ls3kAU_01533 = "Replying to a Private Message"
strLangMOD_Ls3kAU_01534 = "Reading a Private Message"
Finished.