Index: openacs-4/contrib/obsolete-packages/photo-album-lite/sql/oracle/photo-album-lite-plsql.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/photo-album-lite/sql/oracle/photo-album-lite-plsql.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/photo-album-lite/sql/oracle/photo-album-lite-plsql.sql	20 Apr 2001 20:51:11 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/photo-album-lite/sql/oracle/photo-album-lite-plsql.sql	30 Sep 2003 12:10:00 -0000	1.2
@@ -60,7 +60,7 @@
        photo_id	       in pl_photos.photo_id%TYPE
   );
        
-  procedure delete (
+  procedure del (
        photo_id	       in pl_photos.photo_id%TYPE
   );
 end pl_photo;
@@ -236,14 +236,14 @@
     where photo_id = pl_photo.apply_default_name.photo_id;
   end apply_default_name;
 
-  procedure delete (
+  procedure del (
        photo_id	       in pl_photos.photo_id%TYPE
   )
   is
   begin
     delete from pl_photos
-    where photo_id = pl_photo.delete.photo_id;
-  end delete;
+    where photo_id = pl_photo.del.photo_id;
+  end del;
 
 end pl_photo;
 /
@@ -276,7 +276,7 @@
        folder_id       in pl_folders.folder_id%TYPE
   ) return pl_folders.title%TYPE;
 
-  procedure delete (
+  procedure del (
        folder_id       in pl_folders.folder_id%TYPE
   );
 
@@ -360,13 +360,13 @@
 	return 'Folder: ' || v_title;
   end;
 
-  procedure delete (
+  procedure del (
        folder_id       in pl_folders.folder_id%TYPE
   )
   is
   begin
-    delete from pl_folders where folder_id = pl_folder.delete.folder_id;
-  end delete;
+    delete from pl_folders where folder_id = pl_folder.del.folder_id;
+  end del;
 
 end pl_folder;
 /
