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 -r1.5 -r1.6
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql	24 Feb 2005 13:41:22 -0000	1.5
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql	31 May 2006 13:42:30 -0000	1.6
@@ -31,5 +31,33 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="content::revision::item_id.item_id">
+    <querytext>
+      select item_id
+      from cr_revisions
+      where revision_id = :revision_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="content::revision::update_content.set_lob_size">      
+      <querytext>
+
+         update cr_revisions
+         set content_length = lob_length(lob)
+         where revision_id = :revision_id
+
+      </querytext>
+  </fullquery>
+
+  <fullquery name="content::revision::update_content.set_file_content">
+      <querytext>
+          update cr_revisions
+          set filename = :filename,
+              mime_type = :mime_type,
+              content_length = :tmp_size
+          where revision_id = :revision_id
+      </querytext>
+  </fullquery>
+  
 </queryset>