Index: openacs-4/contrib/packages/project-manager/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/role-procs.tcl,v
diff -u -r1.2.2.2 -r1.2.2.3
--- openacs-4/contrib/packages/project-manager/tcl/role-procs.tcl	8 Sep 2004 22:36:59 -0000	1.2.2.2
+++ openacs-4/contrib/packages/project-manager/tcl/role-procs.tcl	20 Sep 2004 23:13:49 -0000	1.2.2.3
@@ -56,7 +56,7 @@
 } {
     return [db_list_of_lists get_roles "
                 SELECT
-                one_line,
+                one_line || ' (' || substring(one_line from 1 for 1) || ')' as one_line,
                 role_id
                 FROM
                 pm_roles
Index: openacs-4/contrib/packages/project-manager/www/tasks-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/tasks-postgresql.xql,v
diff -u -r1.5.2.3 -r1.5.2.4
--- openacs-4/contrib/packages/project-manager/www/tasks-postgresql.xql	16 Jul 2004 20:59:41 -0000	1.5.2.3
+++ openacs-4/contrib/packages/project-manager/www/tasks-postgresql.xql	20 Sep 2004 23:13:50 -0000	1.5.2.4
@@ -30,15 +30,17 @@
         to_char(t.latest_start,'YYYY-MM-DD HH24:MI') as latest_start,
         to_char(t.latest_finish,'YYYY-MM-DD HH24:MI') as latest_finish,
         p.first_names || ' ' || p.last_name as full_name,
-        (select one_line from pm_roles r where ta.role_id = r.role_id) as role
+        substring(r.one_line from 1 for 1) as role
         FROM
         pm_tasks_active ts, 
         cr_items i,
         pm_tasks_revisionsx t 
           LEFT JOIN pm_task_assignment ta
           ON t.item_id = ta.task_id
             LEFT JOIN persons p 
-            ON ta.party_id = p.person_id,
+            ON ta.party_id = p.person_id
+            LEFT JOIN pm_roles r
+            ON ta.role_id = r.role_id,
         cr_items proj,
         pm_projectsx proj_rev
         WHERE
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.5.2.6 -r1.5.2.7
--- openacs-4/contrib/packages/project-manager/www/tasks.tcl	8 Sep 2004 19:44:44 -0000	1.5.2.6
+++ openacs-4/contrib/packages/project-manager/www/tasks.tcl	20 Sep 2004 23:13:50 -0000	1.5.2.7
@@ -169,7 +169,7 @@
             label "People"
             values {[pm::task::assignee_filter_select -status_id $status_id]}
             where_clause {
-                ta.party_id = :party_id
+                ts.task_id in (select task_id from pm_task_assignment where party_id = :party_id)
             }
         }
         status_id {