Index: openacs-4/packages/photo-album/sql/oracle/plsql-packages.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/sql/oracle/plsql-packages.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/photo-album/sql/oracle/plsql-packages.sql	18 Jun 2003 12:11:17 -0000	1.3
+++ openacs-4/packages/photo-album/sql/oracle/plsql-packages.sql	30 Sep 2003 12:10:09 -0000	1.4
@@ -56,7 +56,7 @@
   --
   --  Be careful, cannot be undone (easily)
   --*/
-  procedure delete (
+  procedure del (
     item_id             in acs_objects.object_id%TYPE
   );
 
@@ -145,13 +145,13 @@
     -- the on delete cascade will take care of this
     -- during the content_revision.delete
   begin
-    content_revision.delete (
+    content_revision.del (
       revision_id    => revision_id
     );
 
   end delete_revision;
 
-  procedure delete (
+  procedure del (
     item_id             in acs_objects.object_id%TYPE
   )
   is
@@ -161,25 +161,25 @@
       from
         cr_child_rels
       where
-        parent_id = pa_photo.delete.item_id;
+        parent_id = pa_photo.del.item_id;
 
   begin
     
     -- delete all the images associated with the photo
     for v_pa_image_val in pa_image_cur loop
-      image.delete (
+      image.del (
         item_id => v_pa_image_val.child_id
       );
     end loop;
 
     -- content_item.delete takes care of all revision
     -- on delete cascades take care of rest
 
-    content_item.delete (
+    content_item.del (
       item_id   =>  item_id
     );
 
-  end delete;
+  end del;
 
 end pa_photo;
 /
@@ -225,7 +225,7 @@
   -- Album must be empty to be deleted,
   -- otherwise delete throws error
   --*/
-  procedure delete (
+  procedure del (
      album_id	    in cr_items.item_id%TYPE
   );
 
@@ -308,13 +308,13 @@
   -- the on delete cascade will take care of this
   -- during the content_revision.delete
   begin
-    content_revision.delete (
+    content_revision.del (
       revision_id    => revision_id
     );
 
   end delete_revision;
 
-  procedure delete (
+  procedure del (
      album_id	    in cr_items.item_id%TYPE
   )
   is
@@ -323,7 +323,7 @@
     -- check if album is empty (no rm -r *)
     select count(*) into v_num_children
     from cr_items 
-    where parent_id = pa_album.delete.album_id;
+    where parent_id = pa_album.del.album_id;
 
     if v_num_children > 0 then
            raise_application_error(-20000,
@@ -334,11 +334,11 @@
     -- content_item.delete takes care of all revision
     -- on delete cascades take care of rest
 
-    content_item.delete (
+    content_item.del (
       item_id   =>  album_id
     );
 
-  end delete;
+  end del;
 
 end pa_album;
 /
