Index: openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-manager-procs.tcl,v
diff -u -r1.2.2.13 -r1.2.2.14
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	15 Feb 2005 09:54:28 -0000	1.2.2.13
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	15 Feb 2005 10:21:39 -0000	1.2.2.14
@@ -724,11 +724,13 @@
     
     @error 
 } {
-    return [pm::util::subsite_assignees_list_of_lists_not_cached]
+    set subsite_id [ad_conn subsite_id]
+    return [util_memoize [list pm::util::subsite_assignees_list_of_lists_not_cached -subsite_id $subsite_id] 6000]
 }
 
 
 ad_proc -public pm::util::subsite_assignees_list_of_lists_not_cached {
+    {-subsite_id ""}
 } {
     Returns a list of lists of possible assignees
     
@@ -740,7 +742,10 @@
     @error 
 } {
 
-    set subsite_id [ad_conn subsite_id]
+    if [empty_string_p $subsite_id] {
+	set subsite_id [ad_conn subsite_id]
+    }
+    
     set user_group_id [application_group::group_id_from_package_id \
                            -package_id $subsite_id]