Index: openacs-4/contrib/packages/simulation/www/simplay/case-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case-admin.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/simulation/www/simplay/case-admin.tcl	27 Jan 2004 12:48:39 -0000	1.7
+++ openacs-4/contrib/packages/simulation/www/simplay/case-admin.tcl	27 Jan 2004 15:30:07 -0000	1.8
@@ -19,40 +19,50 @@
 set elements {
     role {
         label "Role"
+        link_url_eval {[export_vars -base case { case_id role_id }]}
     }    
     role_action {
         display_template {
             <a href="@roles.add_url@" class="button">Add user to role</a>
         }
     }
     user_name {
-            label "User"
-            display_template {
-                @roles.user_name@ &nbsp; <a href="@roles.move_url@" class="button">Move</a> <a href="@roles.remove_url@" class="button">remove</a>
-            }
-        }
-        max_n_users {
-            label "Target # users"
-        }
+        label "User"
     }
-
-if { $assigned_only_p } {
-    lappend elements assigned_action {
-            label "Assigned action"
+    user_actions {
+        label ""
+        display_template {
+            <a href="@roles.move_url@" class="button">Move user</a> <a href="@roles.remove_url@" class="button">Remove user</a>
         }
+    }
+    max_n_users {
+        label "Target # users"
+    }
+    assigned_action {
+        label "Assigned action"
+        hide_p {[expr !$assigned_only_p]}
+    }
 }
 
-if { $assigned_only_p } {
-    set assigned_filter "<a href=\"[export_vars -base case-admin { case_id {assigned_only_p 0} }]\">Show all roles</a>"
-} else {
-    set assigned_filter "<a href=\"[export_vars -base case-admin { case_id {assigned_only_p 1} }]\">Show only roles with assigned actions</a>"
-}
-
 template::list::create \
     -name roles \
     -multirow roles \
     -no_data "There are no roles or users in this simulation case" \
-    -elements $elements
+    -elements $elements \
+    -pass_properties { case_id } \
+    -filters {
+        assigned_only_p {
+            label "Display"
+            values {
+                {"All" 0}
+                {"Roles with actions only" 1}
+            }
+            default_value 0
+        }
+        case_id {
+            hide_p 1
+        }
+    }
 
 # Set clauses for the assigned only filter
 set select_clause ""