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 -N -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 " | add attachment" +} + # cal nav set cal_nav [dt_widget_calendar_navigation "view" day $cal_item(start_date) "calendar_id="]