Index: openacs-4/packages/calendar/www/cal-item-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-view.tcl,v
diff -u -r1.27 -r1.27.2.1
--- openacs-4/packages/calendar/www/cal-item-view.tcl	30 Apr 2018 13:54:38 -0000	1.27
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	1 Apr 2021 08:42:35 -0000	1.27.2.1
@@ -26,13 +26,15 @@
 
 set write_p [permission::write_permission_p -object_id $cal_item_id -creation_user $cal_item(creation_user)]
 
+multirow create attachments item_id label href detach_url
 # Attachments?
 if {$cal_item(n_attachments) > 0} {
-    set item_attachments [attachments::get_attachments \
-                              -object_id $cal_item(cal_item_id) \
-                              -return_url [ad_return_url]]
-} else {
-    set item_attachments [list]
+    foreach tuple [attachments::get_attachments \
+                       -object_id $cal_item(cal_item_id) \
+                       -return_url [ad_return_url]] {
+        lassign $tuple item_id label href detach_url
+        multirow append attachments $item_id $label $href $detach_url
+    }
 }
 
 # no time?