Index: openacs-4/packages/bug-tracker/www/notifications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/notifications.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bug-tracker/www/notifications.tcl	28 Aug 2003 09:45:29 -0000	1.2
+++ openacs-4/packages/bug-tracker/www/notifications.tcl	29 Mar 2004 15:07:34 -0000	1.3
@@ -4,7 +4,7 @@
     bug_number:integer,optional
 }
 
-set page_title "Notifications"
+set page_title [_ bug-tracker.Notifications]
 set context [list $page_title]
 
 set workflow_id [bug_tracker::bug::get_instance_workflow_id]
@@ -25,6 +25,8 @@
 
 multirow create notifications url label title subscribed_p
 
+set bugs_name [bug_tracker::conn bugs]
+
 foreach type { 
     workflow_assignee workflow_my_cases workflow
 } {
@@ -36,16 +38,16 @@
     if { ![empty_string_p $object_id] } {
         switch $type {
             workflow_assignee {
-                set pretty_name "all [bug_tracker::conn bugs] you're assigned to"
+                set pretty_name [_ bug-tracker.All_2]
             }
             workflow_my_cases {
-                set pretty_name "all [bug_tracker::conn bugs] you're participating in"
+                set pretty_name [_ bug-tracker.All_3]
             }
             workflow {
-                set pretty_name "all [bug_tracker::conn bugs] in this project"
+                set pretty_name [_ bug-tracker.All_4]
             }
             default {
-                error "Unknown type"
+                error "[_ bug-tracker.Unknown_1]"
             }
         }
 
@@ -75,7 +77,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 "[_ bug-tracker.Unsubscribe_1]" "[_ bug-tracker.Subscribe_1]"] \
                 $subscribed_p
         }
     }