Index: openacs-4/packages/simulation/www/simplay/case-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case-admin.tcl,v
diff -u -r1.16.2.3 -r1.16.2.4
--- openacs-4/packages/simulation/www/simplay/case-admin.tcl	22 Mar 2004 15:50:17 -0000	1.16.2.3
+++ openacs-4/packages/simulation/www/simplay/case-admin.tcl	30 Nov 2004 21:48:15 -0000	1.16.2.4
@@ -20,14 +20,16 @@
 set user_id [ad_conn user_id]
 set section_uri [apm_package_url_from_id $package_id]simplay/
 
+set complete_p [simulation::case::complete_p -case_id $case_id]
+
 set elements {
     role {
         label {[_ simulation.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>
+            [ad_decode $complete_p 1 "" "<a href=\"@roles.add_url@\" class=\"button\">Add user to role</a>"]
         }
     }
     user_name {
@@ -37,8 +39,9 @@
     user_actions {
         label ""
         display_template {
-          <a href="@roles.move_url@" class="button">[_ simulation.Move_user]</a> \
-          <a href="@roles.remove_url@" class="button">[_ simulation.Remove_user] </a>
+	    [ad_decode $complete_p 1 "" " \
+          <a href=\"@roles.move_url@\" class=\"button\">[_ simulation.Move_user]</a> \
+          <a href=\"@roles.remove_url@\" class=\"button\">[_ simulation.Remove_user] </a>"]
         }
     }
     max_n_users {