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.1 -r1.2
--- openacs-4/contrib/packages/project-manager/tcl/status-procs.tcl	3 Jun 2004 21:32:02 -0000	1.1
+++ openacs-4/contrib/packages/project-manager/tcl/status-procs.tcl	11 Jun 2004 20:58:14 -0000	1.2
@@ -38,3 +38,33 @@
 
     return $return_val
 }
+
+
+ad_proc -public pm::status::project_status_select {
+} {
+    Returns a list of project status codes, suitable for list-builder filters
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-06-11
+    
+    @return 
+    
+    @error 
+} {
+    return [util_memoize [list pm::status::project_status_select_helper] 300]
+}
+
+
+ad_proc -private pm::status::project_status_select_helper {
+} {
+    Returns a list of project status codes, suitable for list-builder filters
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-06-11
+    
+    @return 
+    
+    @error 
+} {
+    return [db_list_of_lists get_status "select description, status_id from pm_project_status order by status_type desc, description"]
+}