Index: openacs-4/packages/acs-content-repository/sql/oracle/content-image.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/content-image.sql,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-content-repository/sql/oracle/content-image.sql 17 May 2003 09:42:02 -0000 1.6 +++ openacs-4/packages/acs-content-repository/sql/oracle/content-image.sql 30 Sep 2003 12:10:01 -0000 1.7 @@ -149,7 +149,7 @@ -- -- Be careful, cannot be undone (easily) --*/ - procedure delete ( + procedure del ( item_id in cr_items.item_id%TYPE ); @@ -307,12 +307,12 @@ is v_content cr_files_to_delete.path%TYPE default null; begin - content_revision.delete ( + content_revision.del ( revision_id => revision_id ); end delete_revision; - procedure delete ( + procedure del ( item_id in cr_items.item_id%TYPE ) is @@ -323,7 +323,7 @@ from cr_revisions where - item_id = image.delete.item_id + item_id = image.del.item_id order by revision_id asc; -- order by used in cursur so latest revision will be deleted last @@ -336,10 +336,10 @@ ); end loop; - content_item.delete ( + content_item.del ( item_id => item_id ); - end delete; + end del; end image; /