Index: openacs-4/contrib/packages/project-manager/tcl/status-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/status-procs.tcl,v
diff -u -r1.3.2.1 -r1.3.2.2
--- openacs-4/contrib/packages/project-manager/tcl/status-procs.tcl	2 Jul 2004 23:13:49 -0000	1.3.2.1
+++ openacs-4/contrib/packages/project-manager/tcl/status-procs.tcl	17 Sep 2004 23:50:54 -0000	1.3.2.2
@@ -67,6 +67,33 @@
 }
 
 
+ad_proc -public pm::status::default_open { } {
+    Returns a default project_status id that is open
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-09-17
+    
+    @param status_id
+
+    @return 
+    
+    @error 
+} {
+    
+    set return_val [db_string get_open_status {
+        SELECT
+        status_id
+        FROM
+        pm_project_status
+        WHERE
+        status_type = 'o'
+        LIMIT 1
+    }]
+
+    return $return_val
+}
+
+
 ad_proc -public pm::status::project_status_select {
 } {
     Returns a list of project status codes, suitable for list-builder filters