Index: openacs-4/contrib/packages/simulation/lib/cases.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/cases.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/contrib/packages/simulation/lib/cases.tcl	8 Jan 2004 14:24:44 -0000	1.8
+++ openacs-4/contrib/packages/simulation/lib/cases.tcl	12 Jan 2004 13:43:14 -0000	1.9
@@ -19,15 +19,14 @@
     pretty_name {
         label "Simulation"
         orderby upper(w.pretty_name)
-        link_url_eval {[export_vars -base [ad_conn package_url]simplay/case { case_id }]}
+        link_url_eval {[export_vars -base [ad_conn package_url]simplay/case { case_id role_id }]}
     }
     label {
         label "Case"
         orderby upper(w.pretty_name)
     }
-    role {
+    role_pretty {
         label "Role"
-        display_template { Lawyer 1 }
     }
     status {
         label "Status"
@@ -48,7 +47,7 @@
     -elements $elements 
 
 db_multirow cases select_cases "
-    select distinct wc.case_id,
+    select wc.case_id,
            sc.label,
            w.pretty_name,
            case when (select count(*)
@@ -57,6 +56,8 @@
                          and wcea.enabled_state = 'enabled')=0 then 'Completed'
                 else 'Active'
            end as status,
+           r.role_id,
+           r.pretty_name as role_pretty,
            (select count(distinct wa2.action_id)
             from   workflow_case_enabled_actions wcea2,
                    workflow_actions wa2,
@@ -70,8 +71,10 @@
       from workflow_cases wc,
            sim_cases sc,
            workflow_case_role_party_map wcrpm,
-           workflows w
+           workflows w,
+           workflow_roles r
      where wcrpm.party_id = :party_id
+       and r.role_id = wcrpm.role_id
        and wc.case_id = wcrpm.case_id
        and sc.sim_case_id = wc.object_id
        and w.workflow_id = wc.workflow_id