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 { - Add user to role + [ad_decode $complete_p 1 "" "Add user to role"] } } user_name { @@ -37,8 +39,9 @@ user_actions { label "" display_template { - [_ simulation.Move_user] \ - [_ simulation.Remove_user] + [ad_decode $complete_p 1 "" " \ + [_ simulation.Move_user] \ + [_ simulation.Remove_user] "] } } max_n_users {