Index: openacs-4/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	5 Jun 2005 00:11:04 -0000	1.5
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	7 Jun 2005 11:04:07 -0000	1.6
@@ -1609,6 +1609,7 @@
 
 ad_proc -public pm::project::close {
     {-project_item_id:required}
+    -no_callback:boolean
 } {
     Closes a project
     
@@ -1633,6 +1634,9 @@
         project_id in (select live_revision from cr_items where item_id = :project_item_id)
     }
 
+    if {!$no_callback_p} {
+	callback pm::project_close -package_id [ad_conn package_id] -project_id $project_item_id
+    }
 }