Index: openacs-4/packages/calendar/www/cal-item-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-delete.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/calendar/www/cal-item-delete.tcl 25 Feb 2004 13:07:08 -0000 1.4 +++ openacs-4/packages/calendar/www/cal-item-delete.tcl 18 Mar 2005 14:12:08 -0000 1.5 @@ -9,13 +9,13 @@ {confirm_p 0} } +permission::require_permission -object_id $cal_item_id -privilege delete + if {!$confirm_p} { ad_returnredirect "cal-item-delete-confirm?cal_item_id=$cal_item_id" ad_script_abort } -auth::require_login - calendar::item::delete -cal_item_id $cal_item_id ad_returnredirect $return_url