-@title@
-@context_bar@
-
-
- @table@
-
Index: openacs-4/packages/dotlrn-bm/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/www/Attic/index.tcl,v
diff -u -N
--- openacs-4/packages/dotlrn-bm/www/index.tcl 22 Jun 2002 20:11:03 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,44 +0,0 @@
-ad_page_contract {
-
- @author yon (yon@openforce.net)
- @creation-date 2002-05-13
- @version $Id: index.tcl,v 1.2 2002/06/22 20:11:03 yon Exp $
-
-} -query {
- {orderby "send_date*,subject"}
-} -properties {
- title:onevalue
- context_bar:onevalue
- table:onevalue
-}
-
-set package_id [ad_conn package_id]
-
-permission::require_permission -object_id $package_id -privilege admin
-
-set title [bulk_mail::pretty_name]
-set context_bar {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 sql "
- select bulk_mail_messages.*
- from bulk_mail_messages
- [ad_order_by_from_sort_spec $orderby $table_def]
-"
-
-set table [ad_table \
- -Tmissing_text {No bulk mail messages to display.
} \
- -Torderby $orderby \
- -Ttable_extra_html {width="95%"} \
- select_bulk_mail_messages \
- $sql \
- $table_def \
-]
-
-ad_return_template
Index: openacs-4/packages/dotlrn-bm/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/www/admin/index.adp,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-bm/www/admin/index.adp 2 Jul 2002 23:01:51 -0000 1.1
@@ -0,0 +1,7 @@
+
+@title@
+@context_bar@
+
+
+ @table@
+
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 -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-bm/www/admin/index.tcl 2 Jul 2002 23:01:51 -0000 1.1
@@ -0,0 +1,42 @@
+ad_page_contract {
+
+ @author yon (yon@openforce.net)
+ @creation-date 2002-05-13
+ @version $Id: index.tcl,v 1.1 2002/07/02 23:01:51 yon Exp $
+
+} -query {
+ {orderby "send_date*,subject"}
+} -properties {
+ title:onevalue
+ context_bar:onevalue
+ table:onevalue
+}
+
+set package_id [ad_conn package_id]
+
+set title [bulk_mail::pretty_name]
+set context_bar {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 sql "
+ select bulk_mail_messages.*
+ from bulk_mail_messages
+ [ad_order_by_from_sort_spec $orderby $table_def]
+"
+
+set table [ad_table \
+ -Tmissing_text {No bulk mail messages to display.
} \
+ -Torderby $orderby \
+ -Ttable_extra_html {width="95%"} \
+ select_bulk_mail_messages \
+ $sql \
+ $table_def \
+]
+
+ad_return_template