Index: openacs-4/packages/simulation/www/simplay/case-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simulation/www/simplay/case-delete.tcl	2 Feb 2004 12:57:02 -0000	1.2
+++ openacs-4/packages/simulation/www/simplay/case-delete.tcl	20 Apr 2004 21:12:26 -0000	1.3
@@ -7,18 +7,20 @@
 }
 
 
-permission::require_permission -object_id [ad_conn package_id] -privilege sim_adminplayer
+permission::require_permission -object_id [ad_conn package_id] \
+  -privilege sim_adminplayer
 
 simulation::case::get -case_id $case_id -array case
 
 if { [template::util::is_true $confirm_p] } {
     workflow::case::delete -case_id $case_id
-    ad_returnredirect -message "Case \"$case(label)\" has been deleted." "."
+    ad_returnredirect -message [_ simulation.lt_Case_caselabel_has_be] "."
     ad_script_abort
 }
 
-set page_title "Delete case \"$case(label)\""
-set context [list [list "." "SimPlay"] $page_title]
+set page_title [_ simulation.lt_Delete_case_caselabel]
+set context [list [list "." [_ simulation.SimPlay]] $page_title]
 
-set delete_url [export_vars -base [ad_conn url] { case_id return_url { confirm_p 1 } }]
+set delete_url [export_vars -base [ad_conn url] \
+                 { case_id return_url { confirm_p 1 } }]
 set cancel_url $return_url