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.2 -r1.2.2.1
--- openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql	31 Jan 2005 17:47:00 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql	13 May 2006 19:32:03 -0000	1.2.2.1
@@ -19,15 +19,15 @@
      </querytext>
 </fullquery>
 
-<fullquery name="email_image::edit_email.lob_size">
+<fullquery name="email_image::edit_email_image.lob_size">
       <querytext>
         update cr_revisions
         set content_length = dbms_lob.getlength(content)
         where revision_id = :revision_id
      </querytext>
 </fullquery>
 
-<fullquery name="email_image::edit_email.lob_content">
+<fullquery name="email_image::edit_email_image.lob_content">
       <querytext>
         update cr_revisions
         set    content = empty_blob()
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.1 -r1.1.2.1
--- openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql	14 Jan 2005 14:38:36 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql	13 May 2006 19:32:03 -0000	1.1.2.1
@@ -20,15 +20,15 @@
 </fullquery>
 
 
-<fullquery name="email_image::edit_email.lob_size">
+<fullquery name="email_image::edit_email_image.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.lob_content">
+<fullquery name="email_image::edit_email_image.lob_content">
       <querytext>
         update cr_revisions
         set mime_type = :mime_type,
Index: openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl,v
diff -u -r1.3.2.3 -r1.3.2.4
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	18 Apr 2006 13:00:43 -0000	1.3.2.3
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	13 May 2006 19:32:03 -0000	1.3.2.4
@@ -241,7 +241,7 @@
 	    set revision_id [content::revision::new -item_id $item_id -title $image_name \
 				 -mime_type $mime_type  \
 				 -description "User email image" -creation_ip $creation_ip ]
-	    db_dml edit_update_cr_items { }
+	    db_dml update_cr_items { }
 	    db_dml lob_content { } -blob_files [list ${dest_path}]
 	    db_dml lob_size { }
 	}
Index: openacs-4/packages/acs-subsite/tcl/email-image-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs.xql,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.xql	14 Jan 2005 14:38:36 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.xql	13 May 2006 19:32:03 -0000	1.1.2.1
@@ -54,7 +54,7 @@
   </querytext>
 </fullquery>
 
-<fullquery name="email_image::edit_email.update_cr_items">
+<fullquery name="email_image::edit_email_image.update_cr_items">
   <querytext>
         update cr_items
         set live_revision  = :revision_id