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.17 -r1.18
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	9 Jan 2004 22:55:52 -0000	1.17
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	10 Jan 2004 18:59:50 -0000	1.18
@@ -64,6 +64,7 @@
         assign_permission  $cal_item_id  $creation_user delete
         assign_permission  $cal_item_id  $creation_user admin
 
+        calendar::do_notifications -mode New -cal_item_id $cal_item_id
         return $cal_item_id
 
     } else {
@@ -200,6 +201,8 @@
             set    [join $colspecs ", "]
             where  cal_item_id= :cal_item_id
         "
+
+        calendar::do_notifications -mode Edited -cal_item_id $cal_item_id
         }
     } else {
         ad_return_complaint 1 "Start Time must be before End Time"