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 -r1.4 -r1.5 --- openacs-4/packages/dotlrn-bm/www/admin/index.tcl 9 Nov 2008 23:29:24 -0000 1.4 +++ openacs-4/packages/dotlrn-bm/www/admin/index.tcl 27 Oct 2014 16:41:18 -0000 1.5 @@ -3,40 +3,52 @@ @author yon (yon@openforce.net) @creation-date 2002-05-13 @version $Id$ - } -query { - {orderby "send_date*,subject"} + {orderby "send_date"} } -properties { title:onevalue - context_bar:onevalue + context:onevalue table:onevalue } set package_id [ad_conn package_id] -set title [bulk_mail::pretty_name] -set context_bar {All} +permission::require_permission -object_id $package_id -privilege admin -set table_def { - {send_date {Send Date} {bulk_mail_messages.send_date $order} {
No bulk mail messages to display.
} \ - -Torderby $orderby \ - -Ttable_extra_html {width="95%"} \ - select_bulk_mail_messages \ - $sql \ - $table_def \ -] +db_multirow -extend {send_date_pretty message_url status_pretty} message_list get_mail_messages {} { + set send_date_pretty [lc_time_fmt $send_date %q] + set message_url "[lindex [site_node::get_url_from_object_id -object_id $package_id] 0]one?bulk_mail_id=$bulk_mail_id" + set status_pretty [ad_decode $status sent [_ bulk-mail.Sent] pending [_ bulk-mail.Pending] [_ bulk-mail.Cancelled]] +} ad_return_template