Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 DEV-Group
 DEV Bug Reports (Closed)
 BUG + FIX locked members receive topic moved email
 Forum Locked  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

ruirib
Snitz Forums Admin

Portugal
26364 Posts

Posted - 28 July 2008 :  15:24:29  Show Profile  Send ruirib a Yahoo! Message
In the current version, locked members receive emails informing when one of their topics has been moved and the forum is configured to send such notifications.

The issues lies with the DoAutoMoveEMail function, in post_info.asp. To fix it, find the function (#1932-1966 in an unchanged file)

sub DoAutoMoveEmail(TopicNum)
	'## Emails Topic Author if Topic Moved.  
	strSql  = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID," & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_EMAIL, " & strActivePrefix & "TOPICS.FORUM_ID, " & strActivePrefix & "TOPICS.T_SUBJECT "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strActivePrefix & "TOPICS "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strActivePrefix & "TOPICS.T_AUTHOR "
	strSql = strSql & " AND   " & strActivePrefix & "TOPICS.TOPIC_ID = " & TopicNum

	set rs2 = my_Conn.Execute (strSql)
	
	email = rs2("M_EMAIL")
	user_name = rs2("M_NAME")
	Topic_Title = rs2("T_SUBJECT")
	ForumId = rs2("FORUM_ID")
	Usernum = rs2("MEMBER_ID")
	
	rs2.close
	set rs2 = nothing
	if lcase(strEmail) = "1" then
		strRecipientsName = user_name
		strRecipients = email
		strSubject = strForumTitle & " - Topic Moved"
		strMessage = "Hello " & user_name & vbNewLine & vbNewLine
		strMessage = strMessage & "Your posting on " & strForumTitle & "." & vbNewLine
		strMessage = strMessage & "Regarding the subject - " & Topic_Title & "." & vbNewLine & vbNewLine
		
		if not(chkForumAccess(ForumID,Usernum,false)) then
			strMessage = strMessage & "Has been removed from public display, If you have any questions regarding this, please contact the Administrator of the forum" & vbNewLine
		else
			strMessage = strMessage & "Has been moved to a new forum, You can view it at " & vbNewLine & Left(Request.Form("refer"), InstrRev(Request.Form("refer"), "/")) & "topic.asp?TOPIC_ID=" & TopicNum & vbNewLine
		end if
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
	end if
end sub

and replace it by

sub DoAutoMoveEmail(TopicNum)
	'## Emails Topic Author if Topic Moved.  
	strSql  = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID," & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_EMAIL, " & strActivePrefix & "TOPICS.FORUM_ID, " & strActivePrefix & "TOPICS.T_SUBJECT "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strActivePrefix & "TOPICS "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strActivePrefix & "TOPICS.T_AUTHOR "
	strSql = strSql & " AND " & strActivePrefix & "TOPICS.TOPIC_ID = " & TopicNum
	strSql = strSql & " AND  " & strMemberTablePrefix & "MEMBERS.M_STATUS <> 0"

	set rs2 = my_Conn.Execute (strSql)

	If Not rs2.EOF Then
	
		email = rs2("M_EMAIL")
		user_name = rs2("M_NAME")
		Topic_Title = rs2("T_SUBJECT")
		ForumId = rs2("FORUM_ID")
		Usernum = rs2("MEMBER_ID")
		
		rs2.close
		set rs2 = nothing
		if lcase(strEmail) = "1" then
			strRecipientsName = user_name
			strRecipients = email
			strSubject = strForumTitle & " - Topic Moved"
			strMessage = "Hello " & user_name & vbNewLine & vbNewLine
			strMessage = strMessage & "Your posting on " & strForumTitle & "." & vbNewLine
			strMessage = strMessage & "Regarding the subject - " & Topic_Title & "." & vbNewLine & vbNewLine
			
			if not(chkForumAccess(ForumID,Usernum,false)) then
				strMessage = strMessage & "Has been removed from public display, If you have any questions regarding this, please contact the Administrator of the forum" & vbNewLine
			else
				strMessage = strMessage & "Has been moved to a new forum, You can view it at " & vbNewLine & Left(Request.Form("refer"), InstrRev(Request.Form("refer"), "/")) & "topic.asp?TOPIC_ID=" & TopicNum & vbNewLine
			end if
	%>
	<!--#INCLUDE FILE="inc_mail.asp" -->
	<%
		end If
	Else
		rs2.Close
		Set rs2 = nothing
	End if
end sub

The new parts are highlighted in red.<


Snitz 3.4 Readme | Like the support? Support Snitz too

Edited by - AnonJr on 17 March 2009 18:59:52

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 28 November 2008 :  13:39:51  Show Profile
Fixed in 3.4.07.<

Support Snitz Forums
Go to Top of Page
  Previous Topic Topic Next Topic  
 Forum Locked  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.14 seconds. Powered By: Snitz Forums 2000 Version 3.4.07