Index: openacs-4/packages/dotlrn-bm/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/www/admin/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-bm/www/admin/index.tcl	29 Jun 2018 17:27:19 -0000	1.7
+++ openacs-4/packages/dotlrn-bm/www/admin/index.tcl	3 Sep 2024 15:37:37 -0000	1.8
@@ -15,7 +15,7 @@
 
 permission::require_permission -object_id $package_id -privilege admin
 
-set title [string totitle [bulk_mail::pretty_name]]
+set title [string totitle [parameter::get -localize -package_id $package_id -parameter pretty_name]]
 
 template::list::create -name messages \
     -multirow message_list \
@@ -48,7 +48,7 @@
 db_multirow -extend {send_date_pretty message_url status_pretty} message_list get_mail_messages {} {
     set send_date_pretty [lc_time_fmt $send_date %q]
     set message_url "[lindex [site_node::get_url_from_object_id -object_id $package_id] 0]one?bulk_mail_id=$bulk_mail_id"
-    set status_pretty [ad_decode $status sent [_ bulk-mail.Sent] pending [_ bulk-mail.Pending] [_ bulk-mail.Cancelled]]
+    set status_pretty [switch $status { "sent" {_ bulk-mail.Sent} "pending" {_ bulk-mail.Pending} default {_ bulk-mail.Cancelled} }]
 }
 
 ad_return_template