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) + ) + + +