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;"
+
+
+