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}