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 -N -r1.14 -r1.15 --- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl 13 Jan 2005 13:54:35 -0000 1.14 +++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl 24 Feb 2005 13:32:57 -0000 1.15 @@ -724,11 +724,13 @@ @error } { - return [util_memoize [list pm::util::subsite_assignees_list_of_lists_not_cached] 6000] + 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]