Index: openacs-4/packages/forums/lib/message/attachment-list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/attachment-list.adp,v
diff -u -r1.1 -r1.1.12.1
--- openacs-4/packages/forums/lib/message/attachment-list.adp	17 Dec 2003 15:45:29 -0000	1.1
+++ openacs-4/packages/forums/lib/message/attachment-list.adp	2 Jun 2008 18:02:22 -0000	1.1.12.1
@@ -1,7 +1,5 @@
-        <ul>
-<% 
-    foreach attachment $attachments {
-        template::adp_puts "<li><a href=\"[lindex $attachment 2]\">[lindex $attachment 1]</a></li>"
-    }
-%>
-        </ul>
+  <ul>
+    <multiple name="attachments">
+      <li><a href="@attachments.url@">@attachments.name@</a></li>
+    </multiple>
+  </ul>
Index: openacs-4/packages/forums/lib/message/attachment-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/attachment-list.tcl,v
diff -u -r1.2 -r1.2.8.1
--- openacs-4/packages/forums/lib/message/attachment-list.tcl	29 Jun 2004 10:18:28 -0000	1.2
+++ openacs-4/packages/forums/lib/message/attachment-list.tcl	2 Jun 2008 18:02:22 -0000	1.2.8.1
@@ -15,7 +15,12 @@
 }
 
 # get the attachments
-set attachments [attachments::get_attachments -object_id $message(message_id)]
+template::multirow create attachments url name
+foreach attachment [attachments::get_attachments -object_id $message(message_id)] {
+    set url [lindex $attachment 2]
+    set name [lindex $attachment 1]
+    template::multirow append attachments $url $name
+}
 
 set attachment_graphic [attachments::graphic_url]