Index: openacs-4/contrib/packages/project-manager/www/comments/add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/comments/Attic/add.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/contrib/packages/project-manager/www/comments/add.tcl 21 Sep 2004 00:29:45 -0000 1.1.2.1 +++ openacs-4/contrib/packages/project-manager/www/comments/add.tcl 29 Apr 2005 17:02:32 -0000 1.1.2.2 @@ -13,7 +13,6 @@ title:notnull return_url:notnull {type "task"} - {attach_p "f"} {description:html ""} } -properties { } -validate { @@ -54,12 +53,6 @@ {options {{"Yes" "t"} {"No" "f"}}} } - {attach_p:text(select),optional - {label "Attach a file?"} - {options {{"Yes" "t"} {"No" "f"}}} - {value "f"} - } - } -new_request { set description [template::util::richtext::create "" {}] @@ -70,21 +63,16 @@ set description_body [template::util::richtext::get_property contents $description] set description_format [template::util::richtext::get_property format $description] - set comment_id [pm::util::general_comment_add \ - -object_id $object_id \ - -title "$title" \ - -comment "$description_body" \ - -mime_type "$description_format" \ - -send_email_p $send_email_p \ - -type $type] + pm::util::general_comment_add \ + -object_id $object_id \ + -title "$title" \ + -comment "$description_body" \ + -mime_type "$description_format" \ + -send_email_p $send_email_p \ + -type $type # does not seem to be working for some reason util_user_message -message "Comment: [ad_quotehtml $title] saved" - - if { [string equal $attach_p "f"] && ![empty_string_p $return_url] } { - ad_returnredirect $return_url - } else { - ad_returnredirect "/comments/view-comment?[export_vars { comment_id return_url }]" - } + ad_returnredirect $return_url }