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 -r1.2 -r1.3
--- openacs-4/packages/dotlrn-bm/www/admin/index.tcl	13 Jul 2002 00:13:09 -0000	1.2
+++ openacs-4/packages/dotlrn-bm/www/admin/index.tcl	18 Nov 2002 18:01:20 -0000	1.3
@@ -18,7 +18,7 @@
 set context_bar {All}
 
 set table_def {
-    {send_date {Send Date} {bulk_mail_messages.send_date $order} {<td width="10%">[util_AnsiDatetoPrettyDate $send_date]</td>}}
+    {send_date {Send Date} {bulk_mail_messages.send_date $order} {<td width="10%">[lc_time_fmt $send_date "%q"]</td>}}
     {from_addr From {bulk_mail_messages.from_addr $order} {<td width="15%">$from_addr</td>}}
     {subject Subject {bulk_mail_messages.subject $order} {<td><a href="[lindex [site_node::get_url_from_object_id -object_id $package_id] 0]one?bulk_mail_id=$bulk_mail_id">$subject</a></td>}}
     {sent_p {Sent?} {bulk_mail_messages.sent_p $order} {<td width="10%" align="center">[ad_decode $sent_p t Yes No]</td>}}