Index: openacs-4/contrib/obsolete-packages/mp3-jukebox/sql/oracle/mp3-jukebox-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/mp3-jukebox/sql/oracle/mp3-jukebox-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/mp3-jukebox/sql/oracle/mp3-jukebox-create.sql	17 Oct 2001 19:44:08 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/mp3-jukebox/sql/oracle/mp3-jukebox-create.sql	30 Sep 2003 12:10:00 -0000	1.2
@@ -181,7 +181,7 @@
 		context_id    	in acs_objects.context_id%TYPE      default null
         ) return acs_objects.object_id%TYPE;
 
-	procedure delete (
+	procedure del (
 		mp3_id in mp3_mp3s.mp3_id%TYPE
 	);
 
@@ -248,14 +248,14 @@
 
 
 
-	procedure delete (
+	procedure del (
 		mp3_id in mp3_mp3s.mp3_id%TYPE
 	)	
 	is
 	begin
-		delete from mp3_mp3s where mp3_id = mp3.delete.mp3_id;
-		acs_object.delete(mp3_id);
-	end delete;
+		delete from mp3_mp3s where mp3_id = mp3.del.mp3_id;
+		acs_object.del(mp3_id);
+	end del;
 
 
 
@@ -291,7 +291,7 @@
 		context_id	in acs_objects.context_id%TYPE		
         ) return acs_objects.object_id%TYPE;
 
-	procedure delete (
+	procedure del (
 		playlist_id	in mp3_playlists.playlist_id%TYPE
 	);
 
@@ -356,26 +356,26 @@
 		return v_playlist_id;
 	end new;
 
-	procedure delete (
+	procedure del (
 		playlist_id	in mp3_playlists.playlist_id%TYPE
 	)
 	is
 	begin
 		delete from mp3_votes
-			where playlist_id = mp3_playlist.delete.playlist_id;
+			where playlist_id = mp3_playlist.del.playlist_id;
 		delete from mp3_mp3_playlist_map
-			where playlist_id = mp3_playlist.delete.playlist_id;
+			where playlist_id = mp3_playlist.del.playlist_id;
 		delete from mp3_playlists
-			where playlist_id = mp3_playlist.delete.playlist_id;
-		acs_object.delete(playlist_id);
-	end delete;
+			where playlist_id = mp3_playlist.del.playlist_id;
+		acs_object.del(playlist_id);
+	end del;
 
 	-- Note: item_add uses "insert after" ordering, so "order" points to
 	-- the last record _not_ to be updated
 	procedure item_add (
 		mp3_id		in mp3_mp3s.mp3_id%TYPE,
 		playlist_id	in mp3_playlists.playlist_id%TYPE,
-		sort_key	in mp3_mp3_playlist_map.sort_key%TYPE	default 0
+		sort_key	in mp3_mp3_playlist_map.sort_key%TYPE	default null
 	)
 	is
 		cursor map_cur is