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.18 -r1.19
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	1 Jul 2004 22:56:18 -0000	1.18
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	2 Jul 2004 22:18:16 -0000	1.19
@@ -1622,6 +1622,35 @@
 }
 
 
+ad_proc -public pm::project::close {
+    {-project_item_id:required}
+} {
+    Closes a project
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-07-02
+    
+    @param project_item_id
+
+    @return 
+    
+    @error 
+} {
+
+    set closed_id [pm::status::default_closed]
+    
+    db_dml update_status {
+        UPDATE
+        pm_projects
+        SET 
+        status_id = :closed_id
+        WHERE
+        project_id in (select live_revision from cr_items where item_id = :project_item_id)
+    }
+
+}
+
+
 ad_proc -public pm::project::open_p {
     {-project_item_id:required}
 } {