Index: openacs-4/contrib/packages/project-manager/tcl/project-manager-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-manager-procs-oracle.xql,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs-oracle.xql	30 Apr 2005 06:53:09 -0000	1.1.2.3
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs-oracle.xql	2 May 2005 08:07:46 -0000	1.1.2.4
@@ -40,5 +40,11 @@
     </querytext>
   </fullquery>
 
+    <fullquery name="pm::util::get_root_folder.get_root_folder">
+    <querytext>
+        select pm_project.get_root_folder (:package_id, 'f')
+    </querytext>
+  </fullquery>
+
   
 </queryset>
Index: openacs-4/contrib/packages/project-manager/tcl/project-manager-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-manager-procs-postgresql.xql,v
diff -u -r1.2.2.5 -r1.2.2.6
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs-postgresql.xql	30 Apr 2005 06:53:09 -0000	1.2.2.5
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs-postgresql.xql	2 May 2005 08:07:46 -0000	1.2.2.6
@@ -53,5 +53,11 @@
       ORDER BY name
     </querytext>
   </fullquery>
+
+    <fullquery name="pm::util::get_root_folder.get_root_folder">
+    <querytext>
+        select pm_project__get_root_folder (:package_id, 'f')
+    </querytext>
+  </fullquery>
   
 </queryset>
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.16 -r1.2.2.17
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	30 Apr 2005 06:53:09 -0000	1.2.2.16
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	2 May 2005 08:07:46 -0000	1.2.2.17
@@ -753,3 +753,61 @@
     
     return $assignees
 }
+
+ad_proc -private pm::util::get_root_folder {
+    {-package_id ""}
+} {
+    Returns the Root folder of the project manager instance
+} {
+    set project_root [db_exec_plsql get_root_folder { }]
+    return $project_root
+}
+
+ad_proc -public pm::util::get_project_name {
+    {-project_id ""}
+    {-project_item_id ""}
+} {
+    Returns the project name
+} {
+
+    if {![exists_and_not_null project_item_id] && \
+	    ![exists_and_not_null project_id]} {
+	
+	ad_complain "No project passed in"
+	
+    }
+
+    if {[empty_string_p $project_id]} {
+	set project_id [pm::project::get_project_id -project_item_id $project_item_id]
+    }
+
+    return [util_memoize [list pm::util::get_project_name_not_cached -project_id $project_id] 600]
+}
+
+ad_proc -public pm::util::get_project_name_not_cached {
+    {-project_id:required}
+} {
+    Returns the project name
+} {
+    set project_name [db_string get_project_name { }]
+    return $project_name
+}
+
+ad_proc -private pm::util::get_parent_id {
+    {-project_item_id:required}
+    {-project_id:required}
+} {
+    Returns the parent_id
+} {
+    return [util_memoize [list pm::util::get_parent_id_not_cached -project_item_id $project_item_id -project_id $project_id] 600]
+}
+
+ad_proc -private pm::util::get_parent_id_not_cached {
+    {-project_item_id:required}
+    {-project_id:required}
+} {
+    Returns the parent_id
+} {
+    set parent_id [db_string get_project_name { }]
+    return $parent_id
+}
\ No newline at end of file
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?