Index: openacs-4/packages/bulk-mail/bulk-mail.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/bulk-mail.info,v diff -u -r1.1 -r1.2 --- openacs-4/packages/bulk-mail/bulk-mail.info 15 May 2002 22:07:52 -0000 1.1 +++ openacs-4/packages/bulk-mail/bulk-mail.info 29 Oct 2002 18:00:57 -0000 1.2 @@ -44,7 +44,7 @@ - + Index: openacs-4/packages/bulk-mail/catalog/bulk-mail.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/catalog/bulk-mail.en_US.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/bulk-mail/catalog/bulk-mail.en_US.ISO-8859-1.xml 29 Oct 2002 18:00:58 -0000 1.1 @@ -0,0 +1,17 @@ + + + + + Subject + Sent? + No bulk mail messages to display. + Reply To + Bulk Mail + Yes + From + Message + No + Query + Send Date + Extra Headers + 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 { 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.7 -r1.8 --- openacs-4/packages/bulk-mail/www/index.tcl 10 Sep 2002 22:22:30 -0000 1.7 +++ openacs-4/packages/bulk-mail/www/index.tcl 29 Oct 2002 18:01:00 -0000 1.8 @@ -19,12 +19,12 @@ set title [bulk_mail::pretty_name] set context [list All] -set table_def { - {send_date {Send Date} {bulk_mail_messages.send_date $order} {[util_AnsiDatetoPrettyDate $send_date]}} - {from_addr From {bulk_mail_messages.from_addr $order} {$from_addr}} - {subject Subject {bulk_mail_messages.subject $order} {$subject}} - {sent_p {Sent?} {bulk_mail_messages.sent_p $order} {[ad_decode $sent_p t Yes No]}} -} +set table_def [list \ + [list send_date "[_ bulk-mail.Send_Date]" {bulk_mail_messages.send_date $order} {[util_AnsiDatetoPrettyDate $send_date]}] \ + [list from_addr "[_ bulk-mail.From]" {bulk_mail_messages.from_addr $order} {$from_addr}] \ + [list subject "[_ bulk-mail.Subject]" {bulk_mail_messages.subject $order} {$subject}] \ + [list sent_p "[_ bulk-mail.Sent]" {bulk_mail_messages.sent_p $order} {[ad_decode $sent_p t [_ bulk-mail.Yes] [_ bulk-mail.No]]}] \ +] set sql " select bulk_mail_messages.* @@ -34,7 +34,7 @@ " set table [ad_table \ - -Tmissing_text {
No bulk mail messages to display.
} \ + -Tmissing_text "
[_ bulk-mail.lt_No_bulk_mail_messages]
" \ -Torderby $orderby \ -Ttable_extra_html {width="95%"} \ select_bulk_mail_messages \ Index: openacs-4/packages/bulk-mail/www/one.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/www/one.adp,v diff -u -r1.6 -r1.7 --- openacs-4/packages/bulk-mail/www/one.adp 6 Sep 2002 21:50:25 -0000 1.6 +++ openacs-4/packages/bulk-mail/www/one.adp 29 Oct 2002 18:01:00 -0000 1.7 @@ -4,35 +4,36 @@ - + - + - + - + - + - + - + - - + +
Send Date#bulk-mail.Send_Date# @send_date@ 
From#bulk-mail.From# @from_addr@ 
Subject#bulk-mail.Subject#
@subject@
 
Reply To#bulk-mail.Reply_To# @reply_to@ 
Extra Headers#bulk-mail.Extra_Headers# @extra_headers@ 
Message#bulk-mail.Message#
@message@
 
Query#bulk-mail.Query#
@query@
 
Sent?YesNo#bulk-mail.Sent##bulk-mail.Yes##bulk-mail.No#
+