Index: openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql,v
diff -u -N -r1.10 -r1.10.6.1
--- openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql	20 Apr 2005 11:48:56 -0000	1.10
+++ openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql	30 Mar 2007 23:09:58 -0000	1.10.6.1
@@ -16,7 +16,7 @@
 -- The event object
 begin
     acs_object_type.create_type ( 
-        supertype     => 'acs_object', 
+        supertype     =>g 'acs_object', 
         object_type   => 'acs_event', 
         pretty_name   => 'ACS Event', 
         pretty_plural => 'ACS Events', 
@@ -445,7 +445,8 @@
     procedure recurrence_timespan_edit (
         event_id               in acs_events.event_id%TYPE,
         start_date             in time_intervals.start_date%TYPE,
-        end_date               in time_intervals.end_date%TYPE
+        end_date               in time_intervals.end_date%TYPE,
+        edit_past_events       in char default 't'
     );
 
     procedure activity_set (
@@ -729,7 +730,8 @@
     procedure recurrence_timespan_edit (
         event_id               in acs_events.event_id%TYPE,
         start_date             in time_intervals.start_date%TYPE,
-        end_date               in time_intervals.end_date%TYPE
+        end_date               in time_intervals.end_date%TYPE,
+        edit_past_events       in char default 't'
     )
     is
         v_timespan           timespans%ROWTYPE;
@@ -744,7 +746,8 @@
         event_id= recurrence_timespan_edit.event_id;
 
         for v_timespan in 
-        (select * from time_intervals where interval_id in (select interval_id from timespans where timespan_id in (select timespan_id from acs_events where recurrence_id = (select recurrence_id from acs_events where event_id = recurrence_timespan_edit.event_id))))
+        (select * from time_intervals where interval_id in (select interval_id from timespans where timespan_id in (select timespan_id from acs_events where recurrence_id = (select recurrence_id from acs_events where event_id = recurrence_timespan_edit.event_id)))
+        and (edit_past_events = 't' or start_date >= to_date(recurrence_timespan_edit.start_date,'YYYY-MM-DD HH24:MI:SS') ))
         LOOP
                 time_interval.edit(v_timespan.interval_id, v_timespan.start_date + (start_date - v_one_start_date), v_timespan.end_date + (end_date - v_one_end_date));
         END LOOP;