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 -N -r1.13 -r1.14
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	13 Aug 2003 16:08:33 -0000	1.13
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	3 Sep 2003 13:48:31 -0000	1.14
@@ -123,6 +123,11 @@
     }
     ]
 
+    cal_assign_item_permission  $cal_item_id  $creation_user read
+    cal_assign_item_permission  $cal_item_id  $creation_user write
+    cal_assign_item_permission  $cal_item_id  $creation_user delete
+    cal_assign_item_permission  $cal_item_id  $creation_user admin
+
     return $cal_item_id
 
 }