Index: openacs-4/packages/bulk-mail/www/cancel.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/www/cancel.tcl,v
diff -u -N -r1.2 -r1.2.12.1
--- openacs-4/packages/bulk-mail/www/cancel.tcl	29 Jun 2004 10:17:51 -0000	1.2
+++ openacs-4/packages/bulk-mail/www/cancel.tcl	18 Aug 2014 20:51:07 -0000	1.2.12.1
@@ -8,7 +8,7 @@
     bulk_mail_id:integer,notnull
 } -validate {
     message_pending -requires {bulk_mail_id:notnull} {
-	if { ![string equal [db_string bulk_mail_message_status "select status from bulk_mail_messages where bulk_mail_id=$bulk_mail_id"] "pending"] } {
+	if { [db_string bulk_mail_message_status "select status from bulk_mail_messages where bulk_mail_id=$bulk_mail_id"] ne "pending" } {
 	    ad_complain {You may only cancel messages that have not yet been sent.}
 	}
     }