Index: openacs-4/packages/simulation/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/messages.tcl,v
diff -u -r1.16.2.2 -r1.16.2.3
--- openacs-4/packages/simulation/lib/messages.tcl	17 Mar 2004 09:15:07 -0000	1.16.2.2
+++ openacs-4/packages/simulation/lib/messages.tcl	18 Mar 2004 14:40:24 -0000	1.16.2.3
@@ -27,7 +27,7 @@
 
 if { ![exists_and_not_null case_id] || ![exists_and_not_null role_id] } {
     if { !$adminplayer_p } {
-        error "You must supply both case_id and role_id"
+        error [_ simulation.lt_You_must_supply_both_]
     } else {
         set mode "admin"
     }
@@ -37,29 +37,29 @@
 
 set elements {
     from {
-        label "From"
+        label {[_ simulation.From]}
     }
     to {
-        label "To"
+        label {[_ simulation.To]}
     }
     subject {
         link_url_col message_url
-        label "Subject"
+        label {[_ simulation.Subject]}
     }
     creation_date {
-        label "Received"
+        label {[_ simulation.Received]}
         display_col creation_date_pretty
     }
     attachment_count {
-        label "Attachments"
+        label {[_ simulation.Attachments]}
         html { align center }
     }
     case_label {
-        label "Case"
+        label {[_ simulation.Case]}
         hide_p {[ad_decode [exists_and_not_null case_id] 1 1 0]}
     }
     sim_name {
-        label "Simulation"
+        label {[_ simulation.Simulation]}
         hide_p {[ad_decode [exists_and_not_null case_id] 1 1 0]}
     }
 }
@@ -69,22 +69,22 @@
 if { $show_body_p } {
     lappend elements body
     lappend elements {
-        label "Body"
+        label {[_ simulation.Body]}
     }
 
     lappend extend body
 }
 
 if { [exists_and_not_null case_id] && [exists_and_not_null role_id] } {
-    set actions [list "Send new message" [export_vars -base message { case_id role_id }] {}]
+    set actions [list [_ simulation.Send_new_message] [export_vars -base message { case_id role_id }] {}]
 } else {
     set actions [list]
 }
 
 template::list::create \
     -name messages \
     -multirow messages \
-    -no_data "No messages." \
+    -no_data [_ simulation.No_messages] \
     -actions $actions \
     -elements $elements