Index: openacs-4/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.tcl,v
diff -u -r1.26.2.2 -r1.26.2.3
--- openacs-4/packages/simulation/www/simplay/message.tcl	17 Mar 2004 09:45:56 -0000	1.26.2.2
+++ openacs-4/packages/simulation/www/simplay/message.tcl	19 Mar 2004 10:52:44 -0000	1.26.2.3
@@ -12,8 +12,8 @@
 
 simulation::case::assert_user_may_play_role -case_id $case_id -role_id $role_id
 
-set page_title "Message"
-set context [list [list "." "SimPlay"] [list [export_vars -base case { case_id role_id }] "Case"] $page_title]
+set page_title [_ simulation.Message]
+set context [list [list "." [_ simulation.SimPlay]] [list [export_vars -base case { case_id role_id }] [_ simulation.Case]] $page_title]
 set package_id [ad_conn package_id]
 
 set workflow_id [workflow::case::get_element -case_id $case_id -element workflow_id]
@@ -43,7 +43,7 @@
         -array content
 
     set recipient_role_id $content(from_role_id)
-    set subject "Re: $content(title)"
+    set subject "[_ simulation.Re] $content(title)"
     set body_text "
 
 
@@ -73,7 +73,7 @@
     -form {
         {item_id:key}
         {sender_role_id:text(select)
-            {label "From"}
+            {label {[_ simulation.From]}}
             {mode display}
             {options $all_role_options}
         }
@@ -83,7 +83,7 @@
     if { [llength $to_role_options] == 1 } {
         ad_form -extend -name message -form {
             {recipient_role_id_inform:text(inform)
-                {label "To"}
+                {label {[_ simulation.To]}}
                 {value {[lindex [lindex $to_role_options 0] 0]}}
             }
             {recipient_role_id:integer(hidden)
@@ -93,15 +93,15 @@
     } else {
         ad_form -extend -name message -form {
             {recipient_role_id:integer(checkbox),multiple
-                {label "To"}
+                {label {[_ simulation.To]}}
                 {options $to_role_options}
             }
         }
     }
 } else {
     ad_form -extend -name message -form {
         {recipient_role_id:integer(checkbox),multiple
-            {label "To"}
+            {label {[_ simulation.To]}}
             {options $to_role_options}
         }
     }
@@ -111,11 +111,11 @@
 
 ad_form -extend -name message -form {
     {subject:text
-        {label "Subject"}
+        {label {[_ simulation.Subject]}}
         {html {size 80}}
     }
     {body:richtext
-        {label "Body"}
+        {label {[_ simulation.Body]}}
         {html {cols 60 rows 20}}
     }
 }
@@ -133,7 +133,7 @@
         # display mode - show a list of attached documents
         ad_form -extend -name message -form {
             {attachments:text(inform),optional
-                {label "Attachments"}
+                {label {[_ simulation.Attachments]}}
             }
         }
     }