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.9 -r1.2.2.10
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	23 Sep 2004 22:00:06 -0000	1.2.2.9
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	26 Oct 2004 01:22:27 -0000	1.2.2.10
@@ -601,6 +601,7 @@
 
 
 ad_proc -public pm::util::url {
+    {-fully_qualified_p "t"}
 } {
     Returns the URL of where the project manager is located,
     fully qualified
@@ -614,7 +615,49 @@
 } {
     set package_id [pm::util::package_id]
 
-    set package_url "[ad_url][site_node::get_url_from_object_id -object_id $package_id]"
+    if {[string is true $fully_qualified_p]} {
+        set return_val [ad_url]
+    } else {
+        set return_val ""
+    }
+    append return_val [site_node::get_url_from_object_id -object_id $package_id]
 
-    return $package_url
+    return $return_val
 }
+
+
+ad_proc -public pm::util::subsite_assignees_list_of_lists {
+} {
+    Returns a list of lists of possible assignees
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-10-13
+    
+    @return 
+    
+    @error 
+} {
+    return [util_memoize [list pm::util::subsite_assignees_list_of_lists_not_cached]]
+}
+
+
+ad_proc -public pm::util::subsite_assignees_list_of_lists_not_cached {
+} {
+    Returns a list of lists of possible assignees
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-10-13
+    
+    @return 
+    
+    @error 
+} {
+
+    set subsite_id [ad_conn subsite_id]
+    set user_group_id [application_group::group_id_from_package_id \
+                           -package_id $subsite_id]
+
+    set assignees [db_list_of_lists get_assignees { }]
+    
+    return $assignees
+}