Index: openacs.org-dev/packages/general-comments/www/comment-add-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/general-comments/www/comment-add-3.tcl,v diff -u -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/general-comments/www/comment-add-3.tcl 9 Jul 2002 17:35:09 -0000 1.1.1.1 +++ openacs.org-dev/packages/general-comments/www/comment-add-3.tcl 8 Oct 2002 15:47:13 -0000 1.1.1.2 @@ -16,6 +16,7 @@ { context_id "$object_id" } { category "" } { return_url "" } + { attach_p "f" } } # authenticate the user @@ -87,7 +88,8 @@ } } -ad_returnredirect "view-comment?[export_url_vars comment_id 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 return_url }]" +}