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.2 -r1.1.2.3
--- openacs-4/packages/simulation/www/simplay/notifications.tcl	19 Mar 2004 10:52:44 -0000	1.1.2.2
+++ openacs-4/packages/simulation/www/simplay/notifications.tcl	30 Nov 2004 21:48:19 -0000	1.1.2.3
@@ -9,8 +9,17 @@
 set case_url [export_vars -base case { case_id role_id }]
 
 set page_title [_ simulation.Notifications]
-set context [list [list . [_ simulation.SimPlay]] [list $case_url $case(label)] $page_title]
 
+set workflow_id [simulation::case::get_element -case_id $case_id \
+                   -element workflow_id]
+
+set simulation_name [simulation::template::get_element \
+                      -workflow_id $workflow_id -element pretty_name]
+
+set sim_title [_ simulation.simulation_name]
+
+set context [list [list . [_ simulation.SimPlay]] [list [export_vars -base case {case_id role_id }] $sim_title] $page_title]
+
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 set return_url [ad_return_url]
@@ -66,7 +75,7 @@
         multirow append notifications \
             $url \
             [string totitle $pretty_name] \
-            [ad_decode $subscribed_p 1 [_ simulation.lt_Unsubscribe_from_pret] "Subscribe to %pretty_name%"] \
+            [ad_decode $subscribed_p 1 [_ simulation.lt_Unsubscribe_from_pret] [_ simulation.lt_Subscribe_to_pretty_n]] \
             $subscribed_p
     }
 }