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.10 -r1.11
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	3 Jun 2004 21:32:01 -0000	1.10
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	4 Jun 2004 00:04:29 -0000	1.11
@@ -1432,3 +1432,30 @@
 }
 
 
+ad_proc -public pm::project::open_p {
+    {-project_item_id:required}
+} {
+    Returns true if the project is open
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-06-03
+    
+    @param project_item_id
+
+    @return 1 if open, 0 if closed
+    
+    @error 
+} {
+    set return_val [db_string get_open_or_closed {
+        SELECT
+        case when status_type = 'c' then 0 else 1 end
+        FROM
+        pm_projectsx p,
+        pm_project_status s
+        WHERE
+        p.status_id = s.status_id and
+        p.item_id = :project_item_id
+    } -default "0"]
+
+    return $return_val
+}