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.1 -r1.2
--- openacs-4/contrib/packages/simulation/lib/cases.tcl	14 Nov 2003 14:31:41 -0000	1.1
+++ openacs-4/contrib/packages/simulation/lib/cases.tcl	2 Dec 2003 13:46:53 -0000	1.2
@@ -26,12 +26,13 @@
     -elements $elements 
 
 db_multirow cases select_cases "
-    select w.pretty_name
-      from workflows w,
-           workflow_cases wc,
-           workflow_case_role_party_map wcrpm
-     where w.workflow_id = wc.workflow_id
+    select wc.case_id,
+           w.pretty_name
+      from workflow_cases wc,
+           workflow_case_role_party_map wcrpm,
+           workflows w
+     where wcrpm.party_id = :party_id
        and wc.case_id = wcrpm.case_id
-       and wcrpm.party_id = :party_id
+       and w.workflow_id = wc.workflow_id
     [template::list::orderby_clause -orderby -name "cases"]
 "
\ No newline at end of file