Index: openacs-4/packages/dotlrn-ecommerce/www/application-bulk-approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/application-bulk-approve.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-ecommerce/www/application-bulk-approve.tcl	17 Oct 2006 23:19:00 -0000	1.4
+++ openacs-4/packages/dotlrn-ecommerce/www/application-bulk-approve.tcl	20 Nov 2019 14:06:41 -0000	1.5
@@ -22,7 +22,7 @@
 }
 
 #If we come from a "Submit2" command, we must not send the emails.
-if { [exists_and_equal submit2 "[_ dotlrn-ecommerce.Approve_no_email]"] } {
+if {[info exists submit2] && $submit2 eq "[_ dotlrn-ecommerce.Approve_no_email]"} {
     set send_email_p 0
 }
 
@@ -170,4 +170,4 @@
     order by r.community_id
 }]
 
-set now_url [export_vars -base [ad_conn url] { rel_id:multiple return_url }]
\ No newline at end of file
+set now_url [export_vars -base [ad_conn url] { rel_id:multiple return_url }]