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.7 -r1.8
--- openacs-4/contrib/packages/simulation/lib/cases.tcl	7 Jan 2004 14:44:08 -0000	1.7
+++ openacs-4/contrib/packages/simulation/lib/cases.tcl	8 Jan 2004 14:24:44 -0000	1.8
@@ -11,18 +11,24 @@
 }
 
 # TODO: add link to simplay/case for each case
+# TODO: hide case if not admin
+
 set package_id [ad_conn package_id]
 
 set elements {
-    label {
-        label "Case"
+    pretty_name {
+        label "Simulation"
         orderby upper(w.pretty_name)
         link_url_eval {[export_vars -base [ad_conn package_url]simplay/case { case_id }]}
     }
-    pretty_name {
-        label "Simulation"
+    label {
+        label "Case"
         orderby upper(w.pretty_name)
     }
+    role {
+        label "Role"
+        display_template { Lawyer 1 }
+    }
     status {
         label "Status"
     }