Index: openacs-4/packages/simulation/www/simplay/case-admin-messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case-admin-messages.tcl,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/simulation/www/simplay/case-admin-messages.tcl	30 Jan 2004 10:29:16 -0000	1.1
+++ openacs-4/packages/simulation/www/simplay/case-admin-messages.tcl	18 Mar 2004 09:48:05 -0000	1.1.2.1
@@ -10,7 +10,10 @@
 workflow::role::get -role_id $role_id -array role_array
 simulation::case::get -case_id $case_id -array case_array
 
-set title "Messages for $role_array(pretty_name) in $case_array(label)"
-set context [list [list . "SimPlay"] [list [export_vars -base case-admin { case_id }] "Administer $case_array(label)"] "Messages for $role_array(pretty_name)"]
+# Variables used by I18N messages (array variables not currently supported)
+set role_pretty_name $role_array(pretty_name)
+set case_pretty_name $case_array(label)
+set title [_ simulation.case_admin_page_title]
+set context [list [list . [_ simulation.SimPlay]] [list [export_vars -base case-admin { case_id }] [_ simulation.lt_Administer_case_prett]] [_ simulation.lt_Messages_for_role_pre]]
 
 set user_id [ad_conn user_id]