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.5 -r1.6
--- openacs-4/packages/calendar/www/cal-item-view.tcl	3 Jun 2002 04:08:17 -0000	1.5
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	2 Jul 2002 21:17:08 -0000	1.6
@@ -17,6 +17,9 @@
 
 set package_id [ad_conn package_id]
 
+# Require read permission (FIXME)
+# ad_require_permission $cal_item_id read
+
 # write permission
 set edit_p [ad_permission_p $cal_item_id cal_item_write]
 
@@ -28,9 +31,21 @@
 
 calendar::item::get -cal_item_id $cal_item_id -array cal_item
 
+# Attachments?
+if {$cal_item(n_attachments) > 0} {
+    set item_attachments [attachments::get_attachments -object_id $cal_item(cal_item_id)]
+} else {
+    set item_attachments [list]
+}
+
 # no time?
 set cal_item(no_time_p) [dt_no_time_p -start_time $cal_item(start_time) -end_time $cal_item(end_time)]
 
+# Attachment URLs
+if {[calendar::attachments_enabled_p]} {
+    set attachment_options " | <A href=\"[attachments::add_attachment_url -object_id $cal_item(cal_item_id) -return_url "../cal-item-view?cal_item_id=$cal_item(cal_item_id)"]\">add attachment</a>"
+}
+
 # cal nav
 set cal_nav [dt_widget_calendar_navigation "view" day $cal_item(start_date) "calendar_id="]