Index: openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	28 Aug 2003 09:41:38 -0000	1.10
+++ openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	30 Sep 2003 12:10:02 -0000	1.11
@@ -386,7 +386,7 @@
   context_id    in acs_objects.context_id%TYPE default null
  ) return acs_objects.object_id%TYPE;
 
- procedure delete (
+ procedure del (
   object_id	in acs_objects.object_id%TYPE
  );
 
@@ -518,15 +518,15 @@
   return v_object_id;
  end new;
 
- procedure delete (
+ procedure del (
   object_id	in acs_objects.object_id%TYPE
  )
  is
    v_exists_p char;
  begin
   
   -- Delete dynamic/generic attributes
-  delete from acs_attribute_values where object_id = acs_object.delete.object_id;
+  delete from acs_attribute_values where object_id = acs_object.del.object_id;
 
   -- Delete directly assigned permissions
   --
@@ -543,7 +543,7 @@
       from acs_object_types
       start with object_type = (select object_type
                                 from acs_objects o
-                                where o.object_id = acs_object.delete.object_id)
+                                where o.object_id = acs_object.del.object_id)
       connect by object_type = prior supertype)
   loop
     -- Delete from the table if it exists.
@@ -559,7 +559,7 @@
 
   end loop;
 
- end delete;
+ end del;
 
  function name (
   object_id	in acs_objects.object_id%TYPE
