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.31 -r1.32
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	21 Mar 2006 17:21:44 -0000	1.31
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	3 May 2006 18:02:11 -0000	1.32
@@ -1824,6 +1824,7 @@
 ad_proc -public pm::project::unassign {
     {-project_item_id:required}
     {-party_id:required}
+    -no_callback:boolean
 } {
     Removes a user from a project
     
@@ -1852,6 +1853,10 @@
         util_memoize_flush [list pm::role::project_select_list_filter_not_cached -project_item_id $project_item_id -party_id $party_id]
     }
 
+    if {!$no_callback_p} {
+	callback pm::project_unassign -project_id $project_item_id -party_id $party_id
+    }
+
     return
 }
 
@@ -3274,6 +3279,17 @@
 }
 
 ad_proc -public pm::project::get_all_subprojects {
+    {-project_item_id:required}
+} {
+    get all subprojects. cached.
+    
+    @author Malte Sussdorff (malte.sussdorff@cognovis.de)
+} {
+    return [util_memoize [list ::pm::project::get_all_subprojects_not_cached -project_item_id $project_item_id]]
+}
+
+
+ad_proc -public pm::project::get_all_subprojects_not_cached {
     -project_item_id:required
 } {
     @author Miguel Marin (miguelmarin@viaro.net)