just in case it gets capitalized

diff --git a/httemplate/misc/payment.cgi b/httemplate/misc/payment.cgi
index d7a2c2d..73a9c62 100644 (file)
--- a/httemplate/misc/payment.cgi
+++ b/httemplate/misc/payment.cgi
@@ -153,7 +153,7 @@ function OLiframeContent(src, width, height, name) {
 % } elsif ( $payby eq 'CHEK' ) {
 %     my( $payinfo1, $payinfo2, $payname, $ss ) = ( '', '', '', '' );
 %     if ( $cust_main->payby =~ /^(CHEK|DCHK)$/ ) {
-%       $cust_main->paymask =~ /^([\dx]+)\@([\dx]+)$/
+%       $cust_main->paymask =~ /^([\dx]+)\@([\dx]+)$/i
 %         or die "unparsable payinfo ". $cust_main->payinfo;
 %       ($payinfo1, $payinfo2) = ($1, $2);
 %       $payname = $cust_main->payname;

diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi
index d591db1..c5638c5 100644 (file)
--- a/httemplate/misc/process/payment.cgi
+++ b/httemplate/misc/process/payment.cgi
@@ -44,7 +44,7 @@
 %my $paycvv = '';
 %if ( $payby eq 'CHEK' ) {
 %
-%  if ($cgi->param('payinfo1') =~ /xx/ || $cgi->param('payinfo2') =~ /xx/ ) {
+%  if ($cgi->param('payinfo1') =~ /xx/i || $cgi->param('payinfo2') =~ /xx/i ) {
 %    $payinfo = $cust_main->payinfo;
 %  } else {
 %    $cgi->param('payinfo1') =~ /^(\d+)$/