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.17 -r1.18
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	1 Jul 2004 21:40:30 -0000	1.17
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	1 Jul 2004 22:56:18 -0000	1.18
@@ -1793,7 +1793,7 @@
     
     @error 
 } {
-    return [util_memoize [list pm::project::assignee_filter_select_helper -status_id $status_id] 3]
+    return [util_memoize [list pm::project::assignee_filter_select_helper -status_id $status_id] 600]
 }
 
 
@@ -1814,17 +1814,19 @@
     @error 
 } {
     return [db_list_of_lists get_people {
-        SELECT
+SELECT
         distinct(first_names || ' ' || last_name) as fullname, 
         u.person_id 
         FROM
         persons u, 
         pm_project_assignment a,
-        pm_projects p
+        pm_projects p, 
+        cr_items i
         WHERE 
         u.person_id = a.party_id and
-        p.project_id = a.project_id and
-        p.status_id = :status_id
+        i.item_id = a.project_id and
+        p.status_id = :status_id and 
+        i.live_revision = p.project_id
         ORDER BY
         fullname
     }]