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.1 -r1.2
--- openacs-4/packages/dotlrn-bm/www/admin/index.tcl	2 Jul 2002 23:01:51 -0000	1.1
+++ openacs-4/packages/dotlrn-bm/www/admin/index.tcl	13 Jul 2002 00:13:09 -0000	1.2
@@ -20,7 +20,7 @@
 set table_def {
     {send_date {Send Date} {bulk_mail_messages.send_date $order} {<td width="10%">[util_AnsiDatetoPrettyDate $send_date]</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="[site_node::get_url_from_object_id -object_id $package_id]one?bulk_mail_id=$bulk_mail_id">$subject</a></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>}}
 }