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 -N -r1.6.2.20 -r1.6.2.21
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	2 May 2005 18:30:11 -0000	1.6.2.20
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	3 May 2005 09:01:28 -0000	1.6.2.21
@@ -1847,11 +1847,11 @@
 
 
 ad_proc -public pm::project::assignee_filter_select {
-    {-status_id:required}
+    {-status_id ""}
 } {
     Returns a list of lists, people who are assigned to projects with a 
     status of status_id. Used in the list-builder filters for
-    the projects list page. Cached 5 minutes.
+    the projects list page. Cached 10 minutes.
     
     @author Jade Rubick (jader@bread.com)
     @creation-date 2004-06-11
@@ -1867,7 +1867,7 @@
 
 
 ad_proc -private pm::project::assignee_filter_select_helper {
-    {-status_id:required}
+    {-status_id ""}
 } {
     Returns a list of lists, people who are assigned projects with a 
     status of status_id. Used in the list-builder filters for
@@ -1882,7 +1882,14 @@
     
     @error 
 } {
-    return [db_list_of_lists get_people {
+
+    if {[exists_and_not_null status_id]} {
+	set status_clause "p.status_id = :status_id and"
+    } else {
+	set status_clause ""
+    }
+
+    return [db_list_of_lists get_people "
 SELECT
         distinct(first_names || ' ' || last_name) as fullname, 
         u.person_id 
@@ -1894,11 +1901,11 @@
         WHERE 
         u.person_id = a.party_id and
         i.item_id = a.project_id and
-        p.status_id = :status_id and 
+	$status_clause
         i.live_revision = p.project_id
         ORDER BY
         fullname
-    }]
+    "]
 }