Index: openacs-4/packages/general-comments/www/comment-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-add-3.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/general-comments/www/comment-add-3.tcl	14 Sep 2002 15:17:37 -0000	1.5
+++ openacs-4/packages/general-comments/www/comment-add-3.tcl	14 Sep 2002 15:23:12 -0000	1.6
@@ -16,6 +16,7 @@
     { context_id "$object_id" }
     { category "" }
     { return_url "" }
+    { attach_p "f" }
 }    
 
 # authenticate the user
@@ -87,8 +88,8 @@
     }
 }
 
-if { ![empty_string_p $return_url] } {
+if { [string equal $attach_p "f"] && ![empty_string_p $return_url] } {
     ad_returnredirect $return_url
 } else {
-    ad_returnredirect "view-comment?[export_vars { comment_id }]"
+    ad_returnredirect "view-comment?[export_vars { comment_id return_url }]"
 }
Index: openacs-4/packages/general-comments/www/comment-ae-2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-ae-2.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/general-comments/www/comment-ae-2.adp	6 Sep 2002 21:50:44 -0000	1.4
+++ openacs-4/packages/general-comments/www/comment-ae-2.adp	14 Sep 2002 15:23:12 -0000	1.5
@@ -24,6 +24,8 @@
 <form action="@target@" method=post>
 <%= [export_form_vars comment_id object_id object_name context_id title content comment_mime_type category return_url] %>
 <input type=submit name=submit value="Confirm">
+<p>
+<input type="checkbox" name="attach_p" id="attach_ck"><label for="attach_ck">I would like to upload a file or add a link to my comment</label>
 </form>
 </center>