Index: openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql	4 Jun 2006 00:45:42 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql	7 Aug 2017 23:47:58 -0000	1.3
@@ -2,24 +2,24 @@
 <queryset>
 <rdbms><type>postgresql</type><version>7.1</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 = lob_length(lob)
-        where revision_id = :revision_id
-      </querytext>
-</fullquery>
-
-<fullquery name="email_image::new_item.lob_content">
-      <querytext>
         update cr_revisions
         set mime_type = :mime_type,
-        lob = [set __lob_id [db_string get_lob_id "select empty_lob()"]]
+        lob = [set __lob_id [db_string get_lob_id {select empty_lob()}]]
         where revision_id = :revision_id
      </querytext>
 </fullquery>
 
+<fullquery name="email_image::new_item.lob_size">
+  <querytext>
+        update cr_revisions 
+	set content_length = lob_length(lob)
+        where revision_id = :revision_id
+  </querytext>
+</fullquery>
 
+
 <fullquery name="email_image::edit_email_image.lob_size">
       <querytext>
         update cr_revisions 
@@ -32,7 +32,7 @@
       <querytext>
         update cr_revisions
         set mime_type = :mime_type,
-        lob = [set __lob_id [db_string get_lob_id "select empty_lob()"]]
+        lob = [set __lob_id [db_string get_lob_id {select empty_lob()}]]
         where revision_id = :revision_id
      </querytext>
 </fullquery>