Index: openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl	20 Jan 2018 22:38:28 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl	23 Feb 2023 14:28:33 -0000	1.8.2.1
@@ -30,8 +30,13 @@
 
 set query "select email from cc_users where object_id in $users_list"
 
-set spam_name [bulk_mail::parameter -parameter PrettyName -default [_ assessment.Spam_]]
 
+set spam_name [parameter::get \
+                   -localize \
+                   -package_id [bulk_mail::package_id] \
+                   -parameter pretty_name \
+                   -default [_ assessment.Spam_]]
+
 set sender_id [ad_conn user_id]
 set context_bar ""
 set portal_id ""
Index: openacs-4/packages/bm-portlet/www/bm-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bm-portlet/www/bm-portlet.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/bm-portlet/www/bm-portlet.tcl	14 Feb 2019 16:15:01 -0000	1.7.2.1
+++ openacs-4/packages/bm-portlet/www/bm-portlet.tcl	23 Feb 2023 14:28:33 -0000	1.7.2.2
@@ -37,7 +37,10 @@
 set scoped_p [ad_decode $config(scoped_p) t 1 0]
 set admin_p [permission::permission_p -object_id $package_id -privilege admin]
 
-set spam_name [bulk_mail::parameter -localize -parameter pretty_name]
+set spam_name [parameter::get \
+                   -localize \
+                   -package_id [bulk_mail::package_id] \
+                   -parameter pretty_name]
 set spam_url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
 
 ad_return_template
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.8 -r1.18.2.9
--- openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	28 Dec 2021 16:53:05 -0000	1.18.2.8
+++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	23 Feb 2023 14:28:33 -0000	1.18.2.9
@@ -28,13 +28,19 @@
         return [parameter -localize -package_id $package_id -parameter pretty_name]
     }
 
-    ad_proc -public parameter {
+    ad_proc -deprecated parameter {
         -localize:boolean
         {-package_id ""}
         {-parameter:required}
         {-default ""}
     } {
         returns the bulk_mail parameter value for the given parameter
+
+        DEPRECATED: this proc implements some form of global parameter
+        logic. OpenACS now supports "real" global parameters.
+
+        @see parameter::get_global_value
+        @see parameter::set_global_value
     } {
         if {$package_id eq ""} {
             set package_id [package_id]
Index: openacs-4/packages/dotlrn/www/spam-recipients.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-recipients.tcl,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/dotlrn/www/spam-recipients.tcl	17 Jul 2018 11:42:26 -0000	1.9
+++ openacs-4/packages/dotlrn/www/spam-recipients.tcl	23 Feb 2023 14:28:33 -0000	1.9.2.1
@@ -4,7 +4,12 @@
     {referer ""}
 }
 
-set spam_name [bulk_mail::parameter -parameter PrettyName -default [_ dotlrn.Spam]]
+set spam_name [parameter::get \
+                   -localize \
+                   -package_id [bulk_mail::package_id] \
+                   -parameter pretty_name \
+                   -default [_ dotlrn.Spam]]
+
 set context_bar [list [list $referer [_ dotlrn.Admin]] "$spam_name [_ dotlrn.Community]"]
 
 if { ![info exists community_id] || $community_id eq "" } {
Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.39.2.2 -r1.39.2.3
--- openacs-4/packages/dotlrn/www/spam.tcl	10 Oct 2022 09:48:21 -0000	1.39.2.2
+++ openacs-4/packages/dotlrn/www/spam.tcl	23 Feb 2023 14:28:33 -0000	1.39.2.3
@@ -81,7 +81,11 @@
 
 set registered_users_id [acs_magic_object "registered_users"]
 
-set spam_name [bulk_mail::parameter -parameter PrettyName -default [_ dotlrn.Spam_]]
+set spam_name [parameter::get \
+                   -localize \
+                   -package_id [bulk_mail::package_id] \
+                   -parameter pretty_name \
+                   -default [_ dotlrn.Spam]]
 set context [list [list $referer [_ dotlrn.Admin]] "$spam_name [_ dotlrn.Community]"]
 
 if {$community_id eq ""} {