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# |
+