Index: openacs-4/packages/project-manager/www/task-close.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-close.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/project-manager/www/task-close.tcl 4 Sep 2005 12:25:26 -0000 1.2 +++ openacs-4/packages/project-manager/www/task-close.tcl 27 Oct 2006 08:59:29 -0000 1.3 @@ -16,17 +16,15 @@ } -errors { } -db_transaction { - pm::task::close -task_item_id $task_item_id - set revision_id [pm::task::get_revision_id -task_item_id $task_item_id] +pm::task::close -task_item_id $task_item_id +set revision_id [pm::task::get_revision_id -task_item_id $task_item_id] - db_dml complete_task { - update pm_tasks_revisions - set percent_complete = '100' - where task_revision_id = :revision_id - } - - callback pm::task_edit -package_id [ad_conn package_id] -task_id $task_item_id +db_dml complete_task { + update pm_tasks_revisions + set percent_complete = '100' + where task_revision_id = :revision_id } +callback pm::task_edit -package_id [ad_conn package_id] -task_id $task_item_id + ad_returnredirect $return_url