Index: openacs-4/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/task-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/project-manager/tcl/task-procs.tcl	5 Jun 2005 00:11:04 -0000	1.5
+++ openacs-4/packages/project-manager/tcl/task-procs.tcl	7 Jun 2005 11:04:08 -0000	1.6
@@ -1124,6 +1124,7 @@
 
 ad_proc -public pm::task::close {
     {-task_item_id:required}
+    -no_callback:boolean
 } {
     Closes a task
     
@@ -1140,6 +1141,9 @@
 
     db_dml update_status { }
 
+    if {!$no_callback_p} {
+	callback pm::task_close -package_id [ad_conn package_id] -task_id $task_item_id
+    }
 }