Index: openacs-4/packages/general-comments/www/delete-attachment-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/delete-attachment-2.tcl,v
diff -u -N -r1.5.8.2 -r1.5.8.3
--- openacs-4/packages/general-comments/www/delete-attachment-2.tcl	9 Sep 2013 16:44:27 -0000	1.5.8.2
+++ openacs-4/packages/general-comments/www/delete-attachment-2.tcl	3 Oct 2013 08:41:29 -0000	1.5.8.3
@@ -26,7 +26,7 @@
 # is released
 
 #Commented out during i18n convertion, Steffen
-#if { $submit == "Proceed" } {
+#if { $submit eq "Proceed" } {
 
 
     # get the type of the attachment
@@ -35,15 +35,15 @@
           from cr_items
          where item_id = :attach_id
     }    
-    if { $content_type == "content_revision" } {
+    if { $content_type eq "content_revision" } {
         # get the mime_type
         db_1row get_mime_type {
             select mime_type
               from cr_revisions
              where item_id = :attach_id
                and revision_id = content_item.get_latest_revision (:attach_id)
         }
-        if { $mime_type == "image/jpeg" || $mime_type == "image/gif" } {
+        if { $mime_type eq "image/jpeg" || $mime_type eq "image/gif" } {
             # delete row from images table, we should only have one row
             # this is only temporary until CR provides a delete image function
             db_dml delete_image_row {
@@ -62,7 +62,7 @@
                 end;
             }
         }
-    } elseif { $content_type == "content_extlink" } {
+    } elseif { $content_type eq "content_extlink" } {
         db_exec_plsql delete_extlink {
             begin
                 content_extlink.del(:attach_id);