Index: openacs-4/contrib/packages/project-manager/www/tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/tasks.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/contrib/packages/project-manager/www/tasks.tcl	3 Jun 2004 21:32:13 -0000	1.13
+++ openacs-4/contrib/packages/project-manager/www/tasks.tcl	11 Jun 2004 20:58:19 -0000	1.14
@@ -157,39 +157,14 @@
         }
         role_id {
             label "Roles"
-            values {[db_list_of_lists get_roles "
-                SELECT
-                one_line,
-                role_id
-                FROM
-                pm_roles
-                ORDER BY
-                role_id"]}
+            values {[pm::role::select_list_filter]}
             where_clause {
                 ta.role_id = :role_id
             }
         }
         party_id {
             label "People"
-            values {[db_list_of_lists get_people "
-                SELECT
-                distinct(first_names || ' ' || last_name) as fullname, 
-                u.person_id 
-                FROM
-                persons u, 
-                pm_task_assignment a,
-                cr_items t,
-                pm_tasks ts,
-                pm_tasks_revisionsx r
-                WHERE 
-                u.person_id = a.party_id and
-                t.item_id = a.task_id and
-                t.item_id = ts.task_id and
-                ts.status = :status_id and
-                t.item_id = r.item_id and
-                t.live_revision = r.revision_id
-                ORDER BY
-                fullname"]}
+            values {[pm::task::assignee_filter_select -status_id $status_id]}
             where_clause {
                 ta.party_id = :party_id
             }