Index: openacs-4/packages/bug-tracker/www/bug.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/bug-tracker/www/bug.tcl 29 Aug 2002 09:41:55 -0000 1.6 +++ openacs-4/packages/bug-tracker/www/bug.tcl 29 Aug 2002 11:31:49 -0000 1.7 @@ -458,6 +458,10 @@ } } + if { ![info exists resolution] || ![string equal $mode "resolve"] } { + set resolution {} + } + db_transaction { set bug_id [db_string bug_id { select bug_id from bt_bugs where bug_number = :bug_number and project_id = :package_id }] @@ -472,10 +476,6 @@ set $column [element get_value bug $column] } - if { ![info exists resolution] } { - set resolution {} - } - db_dml bug_action { insert into bt_bug_actions (action_id, bug_id, action, resolution, actor, comment, comment_format) @@ -484,10 +484,11 @@ } } - bug_tracker::bug_notify $bug_id $mode $description $desc_format + bug_tracker::bug_notify $bug_id $mode $description $desc_format $resolution ad_returnredirect $return_url ad_script_abort } ad_return_template +