Index: openacs-4/packages/calendar/tcl/cal-item-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs-oracle.xql,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/calendar/tcl/cal-item-procs-oracle.xql 13 Jan 2005 13:56:27 -0000 1.11
+++ openacs-4/packages/calendar/tcl/cal-item-procs-oracle.xql 2 Sep 2008 20:48:09 -0000 1.12
@@ -202,4 +202,53 @@
end;
+
+
+
+ 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)
+ )
+
+
+