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.2 -r1.20.2.3 --- openacs-4/packages/calendar/tcl/cal-item-procs.tcl 23 Jun 2005 02:49:44 -0000 1.20.2.2 +++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl 24 Jun 2005 09:24:28 -0000 1.20.2.3 @@ -58,6 +58,8 @@ # by default, the cal_item permissions # are going to be inherited from the calendar permissions set cal_item_id [db_exec_plsql cal_item_add {}] + + db_dml set_item_type_id "update cal_items set item_type_id=:item_type_id where cal_item_id=:cal_item_id" assign_permission $cal_item_id $creation_user read assign_permission $cal_item_id $creation_user write