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.3 -r1.4 --- openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl 10 Sep 2002 22:22:29 -0000 1.3 +++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl 29 Oct 2002 18:00:59 -0000 1.4 @@ -25,10 +25,11 @@ set package_id [ad_conn package_id] } - return [parameter -package_id $package_id -parameter PrettyName -default "Bulk Mail"] + return [parameter -localize -package_id $package_id -parameter pretty_name] } ad_proc -public parameter { + -localize:boolean {-package_id ""} {-parameter:required} {-default ""} @@ -39,7 +40,7 @@ set package_id [package_id] } - return [parameter::get -package_id $package_id -parameter $parameter -default $default] + return [parameter::get -localize=$localize_p -package_id $package_id -parameter $parameter -default $default] } ad_proc -public package_id {