|
Amministratore
Amministratore
Administrator
Utente Valutato:
 |
 Inserito il - 28/07/2008 : 22:21:43
|
FIX FORUM PLATINUM FULL 3.4.06 - 06
Questo fix Risolve la situazione di un utente bloccato il quale si vede notificare un email al spostamento della propria discussione.
Con questa modifica un utente bloccato, come coerente che sia, non riceve nessuna notifica anche quando tale opzione è attivata nel forum.
modificare il file post_info.asp aggiungendo le parti in rosso.
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
if lcase(strEmail) = "1" then
strRecipientsName = user_name
strRecipients = email
strSubject = strForumTitle & " - Discussione spostata"
strMessage = "Ciao " & user_name & vbNewLine & vbNewLine
strMessage = strMessage & "La tua discussione sul " & strForumTitle & "." & vbNewLine
strMessage = strMessage & "Dal titolo - " & Topic_Title & "." & vbNewLine & vbNewLine
if not(chkForumAccess(ForumID,Usernum,false)) then
strMessage = strMessage & "è stata rimossa dalla visione pubblica, se hai domande in tal proposito contatta l'Amministratore del Forum" & vbNewLine
else
strMessage = strMessage & "è stata spostata in un nuovo forum, la puoi vedere qui " & 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
FIX FORUM TITANIUM 3.4.06 - 06
Questo fix Risolve la situazione di un utente bloccato il quale si vede notificare un email al spostamento della propria discussione.
Con questa modifica un utente bloccato, come coerente che sia, non riceve nessuna notifica anche quando tale opzione è attivata nel forum.
modificare il file post_info.asp aggiungendo le parti in rosso.
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
if lcase(strEmail) = "1" then
strRecipientsName = user_name
strRecipients = email
strSubject = strForumTitle & " - Topic Moved"
strMessage = "Ciao " & user_name & vbNewLine & vbNewLine
strMessage = strMessage & "Il tuo Messaggio su " & strForumTitle & "." & vbNewLine
strMessage = strMessage & "Dal titolo - " & Topic_Title & "." & vbNewLine & vbNewLine
if not(chkForumAccess(ForumID,Usernum,false)) then
strMessage = strMessage & "E' stato rimosso, Se hai qualche domanda in proposito contatta l'Amministratore del forum" & vbNewLine
else
strMessage = strMessage & "E' stata spostata in un nuovo forum, Puoi vederla all'indirizzo " & 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
Zip Platinum Full & Titanium 3.4.06 - 06 Aggiornati
|
|
|
===============
Massimo Farieri
===============
WebMaster of: http://www.snitz.it - http://www.superdeejay.net - E-Mail: superdeejay@superdeejay-TOGLINOSPAM.net
PRIMA DI INSERIRE UNA NUOVA DISCUSSIONE LEGGERE LE REGOLE DEL FORUM.
.: GUIDA & DownLoad SuperDeeJay.Net - Snitz.it Snitz FORUM :. .: REGOLE SuperDeeJay.Net Snitz.it Snitz FORUM:.
.:Il TUO Supporto a Snitz.it Snitz Forum:. -> LEGGIMI! <- Usurpatori frode e ruberia
|
|
Regione  Sicilia ~
Prov.: Siracusa ~
Città: Rosolini ~
Messaggi: 9175 ~
Membro dal: 15/02/2001 ~
Ultima visita: 31/08/2010
|
|
Tutti i Forum
Eventi & Notizie
Evento: BUG + FIX Utenti Bloccati ricezione email
Qui c'è:
