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.8 -r1.9
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	27 Apr 2004 00:49:28 -0000	1.8
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	14 May 2004 23:08:56 -0000	1.9
@@ -1340,3 +1340,37 @@
           (select live_revision from cr_items where item_id = :project_item_id)
     " -default "no_project"]
 }
+
+
+ad_proc -public pm::project::get_list_of_open {
+} {
+    Returns a list of lists, of all open project ids and their names
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-05-13
+    
+    @return list of lists, with project id and name
+    
+    @error 
+} {
+
+    set return_val [db_list_of_lists get_vals "
+        SELECT
+        case when o.name is null then p.title else o.name || ' - ' || p.title end,
+        p.item_id
+        FROM pm_projectsx p
+          LEFT JOIN 
+          organizations o
+          ON p.customer_id = o.organization_id,
+        cr_items i, 
+        pm_project_status s
+        WHERE 
+        p.project_id  = i.live_revision and
+        s.status_id   = p.status_id and
+        s.status_type = 'o'
+        ORDER BY
+        lower(o.name), lower(p.title)
+        "]
+
+    return $return_val
+}