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

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 Disabling "reply with quote"
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Cloke
Starting Member

4 Posts

Posted - 26 September 2002 :  17:53:57  Show Profile
Hello,

I'm in the process of setting up my Snitz board, but I have a question. Is it possible to remove the "reply with quote" button from the menu? Many of the people who will be using this board are seniors, and they'll freak out when they click this button and see a bunch of code in the message window (a few of my testers already are). To a novice, it looks like there's something wrong. I'd really like to replace that button with just the "reply to topic" one, if possible.

Thanks!

ruirib
Snitz Forums Admin

Portugal
26364 Posts

Posted - 26 September 2002 :  18:20:08  Show Profile  Send ruirib a Yahoo! Message
You need to change some code to do that. No way around it.


Snitz 3.4 Readme | Like the support? Support Snitz too
Go to Top of Page

GauravBhabu
Advanced Member

4288 Posts

Posted - 26 September 2002 :  18:34:29  Show Profile
Look for the following statements in post.asp (Lines 50-54) and add the statement in red as shown.
if Request.QueryString("method") <> "" then
	strRqMethod = chkString(Request.QueryString("method"), "SQLString")
else
	Response.Redirect("default.asp")
end if
if strRqMethod = "ReplyQuote" or strRqMethod = "TopicQuote" then strRqMethod = "Reply"


Note:
This is only a workaround to avoid the text from the other post or topic appearing in the text area when a user clicks on Reply With Quote and not a best solution. I have not tested it but should work ok.

Edited by - GauravBhabu on 26 September 2002 18:38:45
Go to Top of Page

Cloke
Starting Member

4 Posts

Posted - 26 September 2002 :  18:39:12  Show Profile
A lot of code changes or pretty simple (just to remove it)?
Go to Top of Page

Cloke
Starting Member

4 Posts

Posted - 26 September 2002 :  18:47:13  Show Profile
quote:
Originally posted by GauravBhabu

Look for the following statements in post.asp (Lines 50-54) and add the statement in red as shown.
if Request.QueryString("method") <> "" then
	strRqMethod = chkString(Request.QueryString("method"), "SQLString")
else
	Response.Redirect("default.asp")
end if
if strRqMethod = "ReplyQuote" or strRqMethod = "TopicQuote" then strRqMethod = "Reply"


Note:
This is only a workaround to avoid the text from the other post or topic appearing in the text area when a user clicks on Reply With Quote and not a best solution. I have not tested it but should work ok.



Works great, thanks! Do you know where the alt tag for that graphic resides? I'd like to switch it to say just "reply" instead of "reply with quote."
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts

Posted - 26 September 2002 :  18:49:30  Show Profile  Send ruirib a Yahoo! Message
Seems like Gaurav posted an easy solution for that. It's possibly the simplest solution of all, but it can be deceiving to more knowledgeable users. I think it would always be necessary to add that change, but probably you could also remove the Reply with Quote icon and link from topic.asp.

To achieve that you just need to comment out lines 644-648 in topic.asp:


	'	if ((Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status = 1) or (AdminAllowed = 1 and Topic_Status <= 1)) and ArchiveView = "" then
	'		Response.Write	"                       <a href=""post.asp?" & ArchiveLink & "method=ReplyQuote&REPLY_ID=" & Reply_ReplyID & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"Reply with Quote","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
	'	end if



and lines 847-849:

	'if ((Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status = 1) or (AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "" ) then
	'	Response.Write	"                       <a href=""post.asp?" & ArchiveLink & "method=TopicQuote&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"Reply with Quote","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
        '	end if



This will simply remove the Reply with Quote icon.


Snitz 3.4 Readme | Like the support? Support Snitz too

Edited by - ruirib on 26 September 2002 18:51:03
Go to Top of Page

Cloke
Starting Member

4 Posts

Posted - 26 September 2002 :  19:00:29  Show Profile
quote:
Originally posted by Cloke

Works great, thanks! Do you know where the alt tag for that graphic resides? I'd like to switch it to say just "reply" instead of "reply with quote."



Nevermind -- I found it in topic.asp.
Go to Top of Page

GauravBhabu
Advanced Member

4288 Posts

Posted - 26 September 2002 :  19:19:51  Show Profile
The other solution is to do as below

File Post.asp


Find the following statements around Lines 329-334

if strRqMethod = "ReplyQuote" then
	TxtMsg = "[quote][i]Originally posted by " & chkString(rs("M_NAME"),"display") & "[/i]" & vbNewline
	TxtMsg = TxtMsg & "
" & rs("R_MESSAGE") & vbNewline
	TxtMsg = TxtMsg & "[/quote]"
end if

Modify the above as below
if strRqMethod = "ReplyQuote" then
	TxtMsg = rs("R_MESSAGE")
end if



Find the following statements around Lines 354-358
if strRqMethod = "TopicQuote" then
	TxtMsg = "[quote][i]Originally posted by " & chkString(rs("M_NAME"),"display") & "[/i]" & vbNewline
	TxtMsg = TxtMsg & "
" & rs("T_MESSAGE") & vbNewline
	TxtMsg = TxtMsg & "[/quote]"
end if



Modify the above as below
if strRqMethod = "TopicQuote" then
        TxtMsg = rs("T_MESSAGE")
end if




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