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.5 -r1.2.2.6
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	9 Sep 2004 23:58:21 -0000	1.2.2.5
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	16 Sep 2004 18:25:36 -0000	1.2.2.6
@@ -541,3 +541,44 @@
 }
 
 
+ad_proc -public pm::util::package_id {
+} {
+    Returns the package ID for the project manager.
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-09-16
+    
+    @return 
+    
+    @error 
+} {
+    return [db_string get_package_id {
+        SELECT 
+        package_id 
+        FROM
+        cr_folders
+        WHERE
+        description = 'Project Repository'
+        LIMIT 1
+    }]
+}
+
+
+ad_proc -public pm::util::url {
+} {
+    Returns the URL of where the project manager is located,
+    fully qualified
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-09-16
+    
+    @return 
+    
+    @error 
+} {
+    set package_id [pm::util::package_id]
+
+    set package_url "[ad_url][site_node::get_url_from_object_id -object_id $package_id]"
+
+    return $package_url
+}