Index: openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl,v
diff -u -r1.18.2.9 -r1.18.2.10
--- openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl 23 Feb 2023 14:28:33 -0000 1.18.2.9
+++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl 23 Feb 2023 14:47:12 -0000 1.18.2.10
@@ -16,10 +16,17 @@
return "bulk-mail"
}
- ad_proc -public pretty_name {
+ ad_proc -deprecated pretty_name {
{package_id ""}
} {
return the pretty name of this instance
+
+ DEPRECATED: this proc is a trivial wrapper to the parameter
+ api. Furthermore, one has to make sure that the supplied
+ package_id is actually an instance of bulk-mail or the
+ returned value will be unspecified.
+
+ @see parameter::get
} {
if {$package_id eq ""} {
set package_id [ad_conn package_id]
Index: openacs-4/packages/bulk-mail/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/www/index.tcl,v
diff -u -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/bulk-mail/www/index.tcl 1 Mar 2019 11:41:40 -0000 1.16.2.1
+++ openacs-4/packages/bulk-mail/www/index.tcl 23 Feb 2023 14:47:12 -0000 1.16.2.2
@@ -16,7 +16,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 \
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.2.1 -r1.7.2.2
--- openacs-4/packages/dotlrn-bm/www/admin/index.tcl 1 Mar 2019 11:23:18 -0000 1.7.2.1
+++ openacs-4/packages/dotlrn-bm/www/admin/index.tcl 23 Feb 2023 14:47:12 -0000 1.7.2.2
@@ -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 \