Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql,v
diff -u -N -r1.9 -r1.9.2.1
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql 15 Aug 2018 17:00:24 -0000 1.9
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql 22 Feb 2021 11:47:19 -0000 1.9.2.1
@@ -12,7 +12,7 @@
oracle
8.1.6
-
+
update cr_revisions
set content = empty_blob()
@@ -21,6 +21,15 @@
+
+
+ update cr_revisions
+ set content = empty_blob()
+ where revision_id = :revision_id
+ returning content into :1
+
+
+
select item_id
@@ -29,7 +38,7 @@
-
+
update cr_revisions
@@ -39,16 +48,18 @@
-
+
+
- update cr_revisions
- set filename = :filename,
- mime_type = :mime_type,
- content_length = :tmp_size
- where revision_id = :revision_id
+
+ update cr_revisions
+ set mime_type = :mime_type,
+ content = empty_blob()
+ where revision_id = :revision_id
+
-
+
select storage_area_key,