Index: openacs-4/packages/calendar/tcl/cal-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.tcl,v diff -u -r1.20.2.3 -r1.20.2.4 --- openacs-4/packages/calendar/tcl/cal-item-procs.tcl 24 Jun 2005 09:24:28 -0000 1.20.2.3 +++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl 25 Oct 2005 11:50:36 -0000 1.20.2.4 @@ -61,6 +61,12 @@ db_dml set_item_type_id "update cal_items set item_type_id=:item_type_id where cal_item_id=:cal_item_id" + # removing inherited permissions + if { [calendar::personal_p -calendar_id $calendar_id] } { + permission::set_not_inherit -object_id $cal_item_id + } + # ## + assign_permission $cal_item_id $creation_user read assign_permission $cal_item_id $creation_user write assign_permission $cal_item_id $creation_user delete