Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.3.2.2 -r1.3.2.3
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	4 Feb 2004 20:17:19 -0000	1.3.2.2
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	5 Feb 2004 23:57:49 -0000	1.3.2.3
@@ -12,6 +12,24 @@
 
 namespace eval project_manager::project {}
 
+ad_proc -public project_manager::project::default_status_open {
+} {
+    Returns the default status value for open projects
+} {
+    set return_val [db_string get_default_status_open { }]
+
+    return $return_val
+}
+
+ad_proc -public project_manager::project::default_status_closed {
+} {
+    Returns the default status value for closed projects
+} {
+    set return_val [db_string get_default_status_closed { }]
+
+    return $return_val
+}
+
 ad_proc -public project_manager::project::new {
     -project_name:required
     {-project_code ""}