Index: openacs-4/packages/project-manager/tcl/project-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs-postgresql.xql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/project-manager/tcl/project-procs-postgresql.xql	23 Aug 2005 16:22:39 -0000	1.7
+++ openacs-4/packages/project-manager/tcl/project-procs-postgresql.xql	28 Aug 2005 14:54:36 -0000	1.8
@@ -221,6 +221,18 @@
     </querytext>
   </fullquery>
 
+   <fullquery name="pm::project::get_status_description.project_status">
+         <querytext>
+
+	select s.description
+	from cr_items i, pm_projects p, pm_project_status s
+	where i.item_id = :project_item_id
+	and p.project_id = i.latest_revision
+	and s.status_id = p.status_id
+
+         </querytext>
+   </fullquery>
+
   <fullquery name="pm::project::assigned_p.assigned_p">
     <querytext>
       SELECT
Index: openacs-4/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	23 Aug 2005 16:22:38 -0000	1.14
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	28 Aug 2005 14:54:36 -0000	1.15
@@ -1711,6 +1711,15 @@
 }
 
 
+ad_proc -public pm::project::get_status_description {
+    {-project_item_id:required}
+} {
+    get the project status description
+} {
+    return [db_string project_status {} -default ""]
+}
+
+
 ad_proc -public pm::project::assign {
     {-project_item_id:required}
     {-role_id:required}