Index: openacs-4/packages/file-storage/www/version-delete-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-delete-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/version-delete-oracle.xql 17 Aug 2001 01:25:39 -0000 1.1 +++ openacs-4/packages/file-storage/www/version-delete-oracle.xql 25 Aug 2001 00:43:53 -0000 1.2 @@ -6,17 +6,26 @@ - begin - if :version_id = content_item.get_live_revision(:item_id) then - content_revision.delete (:version_id); - content_item.set_live_revision(content_item.get_latest_revision(:item_id)); - else - content_revision.delete (:version_id); - end if; - end; + begin + if :version_id = content_item.get_live_revision(:item_id) then + content_revision.delete (:version_id); + content_item.set_live_revision(content_item.get_latest_revision(:item_id)); + else + content_revision.delete (:version_id); + end if; + end; + + + + begin + content_item.delete(:item_id); + end;" + + +