Index: openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql 8 Aug 2006 21:26:17 -0000 1.19
+++ openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql 2 Sep 2008 20:48:09 -0000 1.20
@@ -193,4 +193,52 @@
+
+
+ update acs_events set
+ [join $colspecs ", "]
+ where recurrence_id= :recurrence_id
+ and event_id in
+ (select e.event_id
+ from acs_events e, timespans t, time_intervals i
+ where e.recurrence_id = :recurrence_id
+ and t.timespan_id = e.timespan_id
+ and i.interval_id = t.interval_id
+ and (:edit_past_events_p = 't'
+ or i.start_date >= :start_date)
+ )
+
+
+
+
+
+ update cal_items
+ set [join $colspecs ", "]
+ where cal_item_id in (select e.event_id
+ from acs_events e, timespans t, time_intervals i
+ where e.recurrence_id = :recurrence_id
+ and t.timespan_id = e.timespan_id
+ and i.interval_id = t.interval_id
+ and (:edit_past_events_p = 't'
+ or i.start_date >= :start_date)
+ )
+
+
+
+
+
+ update acs_objects
+ set context_id = :calendar_id
+ where object_id in
+ (select e.event_id
+ from acs_events e, timespans t, time_intervals i
+ where e.recurrence_id = :recurrence_id
+ and t.timespan_id = e.timespan_id
+ and i.interval_id = t.interval_id
+ and (:edit_past_events_p = 't'
+ or i.start_date >= :start_date)
+ )
+
+
+