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 -N -r1.14.2.2 -r1.14.2.3
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	18 Sep 2015 07:27:47 -0000	1.14.2.2
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	28 Oct 2015 09:38:34 -0000	1.14.2.3
@@ -17,7 +17,7 @@
     @param level   Change to this level
 } {
     db_transaction {
-        db_dml update_users {  }
+        db_dml update_users {}
     }
 }
 
@@ -26,7 +26,7 @@
 } {
     Returns the priv_email field of the user from the users table.
 } {
-    set priv_level [db_string get_private_email {  }]
+    set priv_level [db_string get_private_email {}]
     if {$priv_level eq "5"} {
       set priv_level [parameter::get_from_package_key -package_key "acs-subsite" \
       -parameter "PrivateEmailLevelP" -default 4]
@@ -102,7 +102,7 @@
     Returns the email of the user
 
 } {
-    return [db_string get_email {  }]
+    return [db_string get_email {}]
 }
 
 
@@ -173,9 +173,9 @@
                              -description "User email image"  -creation_ip $creation_ip ]
         
         email_image::add_relation -user_id $user_id -item_id $item_id
-        db_dml update_cr_items {  }
-        db_dml lob_content {  } -blob_files [list ${dest_path}]
-        db_dml lob_size {  }
+        db_dml update_cr_items_new {}
+        db_dml new_lob_content {} -blob_files [list ${dest_path}]
+        db_dml lob_size {}
     }
     
     # Delete the temporary file created by ImageMagick
@@ -250,9 +250,9 @@
             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 update_cr_items { }
-            db_dml lob_content { } -blob_files [list ${dest_path}]
-            db_dml lob_size { }
+            db_dml update_cr_items {}
+            db_dml lob_content {} -blob_files [list ${dest_path}]
+            db_dml lob_size {}
         }
     } else {
         db_transaction {
@@ -265,9 +265,9 @@
 
             email_image::add_relation -user_id $user_id -item_id $item_id
 
-            db_dml update_cr_items {  }
-            db_dml lob_content {  } -blob_files [list ${dest_path}]
-            db_dml lob_size {  }
+            db_dml update_cr_items {}
+            db_dml lob_content {} -blob_files [list ${dest_path}]
+            db_dml lob_size {}
         }
     }
     # Delete the temporary file created by ImageMagick
@@ -279,7 +279,7 @@
 ad_proc -public email_image::get_folder_id { } {
     Returns the folder_id of the folder with the name "Email_Images"
 } {
-    return [db_string check_folder_name {  } ]
+    return [db_string check_folder_name {} ]
 }
 
 ad_proc -public email_image::add_relation {
@@ -290,7 +290,7 @@
 
     @param item_id the item_id of the image in the content repository
 } {
-    db_exec_plsql add_relation {  }
+    db_exec_plsql add_relation {}
 }
 
 ad_proc -public email_image::get_related_item_id {
@@ -299,7 +299,7 @@
     Returns the item_id of the email_image stored in the content repository for
     user_id.
 } {
-    return [db_string get_rel_item {  } -default -1 ]
+    return [db_string get_rel_item {} -default -1 ]
 }