Index: openacs-4/contrib/packages/simulation/www/simplay/case.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/simulation/www/simplay/case.tcl	16 Jan 2004 10:20:39 -0000	1.6
+++ openacs-4/contrib/packages/simulation/www/simplay/case.tcl	20 Apr 2004 21:12:26 -0000	1.7
@@ -5,13 +5,17 @@
     role_id:integer,notnull
 }
 
-simulation::case::assert_user_may_play_role -case_id $case_id -role_id $role_id
+simulation::case::assert_user_may_play_role \
+  -case_id $case_id -role_id $role_id
 
-set workflow_id [simulation::case::get_element -case_id $case_id -element workflow_id]
-set simulation_name [simulation::template::get_element -workflow_id $workflow_id -element pretty_name]
+set workflow_id [simulation::case::get_element -case_id $case_id \
+                   -element workflow_id]
 
-set title "$simulation_name"
-set context [list [list . "SimPlay"] $title]
+set simulation_name [simulation::template::get_element \
+                      -workflow_id $workflow_id -element pretty_name]
+
+set title [_ simulation.simulation_name]
+set context [list [list . [_ simulation.SimPlay]] $title]
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
 set section_uri [apm_package_url_from_id $package_id]simplay/