Index: openacs-4/packages/simulation/www/simplay/notifications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/notifications.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/simulation/www/simplay/notifications.tcl	17 Mar 2004 12:32:36 -0000	1.1.2.1
+++ openacs-4/packages/simulation/www/simplay/notifications.tcl	19 Mar 2004 10:52:44 -0000	1.1.2.2
@@ -8,8 +8,8 @@
 simulation::case::get -case_id $case_id -array case
 set case_url [export_vars -base case { case_id role_id }]
 
-set page_title "Notifications"
-set context [list [list "." "SimPlay"] [list $case_url $case(label)] $page_title]
+set page_title [_ simulation.Notifications]
+set context [list [list . [_ simulation.SimPlay]] [list $case_url $case(label)] $page_title]
 
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
@@ -27,16 +27,16 @@
 foreach type $types {
     switch $type {
         workflow_assignee {
-            set pretty_name "all tasks you're assigned to"
+            set pretty_name [_ simulation.lt_all_tasks_youre_assig]
         }
         simplay_message {
-            set pretty_name "all messages you receive"
+            set pretty_name [_ simulation.lt_all_messages_you_rece]
         }
         workflow {
-            set pretty_name "All tasks in the simulation"
+            set pretty_name [_ simulation.lt_All_tasks_in_the_simu]
         }
         default {
-            error "Unknown type"
+            error [_ simulation.Unknown_type]
         }
     }
 
@@ -66,7 +66,7 @@
         multirow append notifications \
             $url \
             [string totitle $pretty_name] \
-            [ad_decode $subscribed_p 1 "Unsubscribe from $pretty_name" "Subscribe to $pretty_name"] \
+            [ad_decode $subscribed_p 1 [_ simulation.lt_Unsubscribe_from_pret] "Subscribe to %pretty_name%"] \
             $subscribed_p
     }
 }