Index: openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql	4 Jun 2006 00:45:42 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql	7 Aug 2017 23:47:58 -0000	1.4
@@ -2,17 +2,9 @@
 <queryset>
 <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="email_image::new_item.lob_size">
+<fullquery name="email_image::new_item.new_lob_content">
       <querytext>
         update cr_revisions
-        set content_length = dbms_lob.getlength(content)
-        where revision_id = :revision_id
-     </querytext>
-</fullquery>
-
-<fullquery name="email_image::new_item.lob_content">
-      <querytext>
-        update cr_revisions
         set    content = empty_blob()
         where  revision_id = :revision_id
         returning content into :1