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.7 -r1.8
--- openacs-4/contrib/packages/project-manager/www/tasks.tcl	5 May 2004 22:41:30 -0000	1.7
+++ openacs-4/contrib/packages/project-manager/www/tasks.tcl	6 May 2004 18:07:07 -0000	1.8
@@ -23,6 +23,7 @@
     {searchterm ""}
     {mine_p "t"}
     {status_id ""}
+    role_id:optional
 } -properties {
     task_term:onevalue
     context:onevalue
@@ -150,7 +151,20 @@
             label "Search"
             where_clause {$search_term_where}
         }
-
+        role_id {
+            label "Roles"
+            values {[db_list_of_lists get_roles "
+                SELECT
+                one_line,
+                role_id
+                FROM
+                pm_roles
+                ORDER BY
+                role_id"]}
+            where_clause {
+                ta.role_id = :role_id
+            }
+        }
         party_id {
             label "People"
             values {[db_list_of_lists get_people "
@@ -181,7 +195,6 @@
             values {[db_list_of_lists get_status_values "select description, status_id from pm_task_status order by status_type desc, description"]}
             where_clause {ts.status = :status_id}
         }
-
         mine_p {
             label "Show others' tasks"
         }