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 -r1.4 -r1.5
--- openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql	14 May 2002 05:05:26 -0000	1.4
+++ openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql	30 Sep 2003 12:10:02 -0000	1.5
@@ -368,7 +368,7 @@
         context_id      in acs_objects.context_id%TYPE default null 
     ) return acs_events.event_id%TYPE; 
 
-    procedure delete ( 
+    procedure del ( 
         -- Deletes an event (20.10.40)
         -- Also deletes party mappings (via on delete cascade).
         -- If this is the last instance of a recurring event, the recurrence
@@ -601,24 +601,24 @@
         return new_event_id;
     end new; 
 
-    procedure delete ( 
+    procedure del ( 
         event_id in acs_events.event_id%TYPE 
     )
     is
         recurrence_id acs_events.recurrence_id%TYPE;
     begin
         select recurrence_id into recurrence_id
         from   acs_events
-        where  event_id = acs_event.delete.event_id;
+        where  event_id = acs_event.del.event_id;
 
         -- acs_events and acs_event_party_map deleted via on delete cascade
-        acs_object.delete(event_id); 
+        acs_object.del(event_id); 
 
         -- Check for no more instances and delete recurrence if exists
         if instances_exist_p(recurrence_id) = 'f' then
-            recurrence.delete(recurrence_id);
+            recurrence.del(recurrence_id);
         end if;
-    end delete;
+    end del;
 
     procedure delete_all (
         event_id in acs_events.event_id%TYPE
@@ -646,7 +646,7 @@
     begin
         if recurrence_id is not null then
             for event_id in event_id_cursor loop
-                acs_event.delete(event_id.event_id);
+                acs_event.del(event_id.event_id);
             end loop;
         end if;
     end delete_all_recurrences;
