fix on-demand payment form when making payments from masked data

diff --git a/httemplate/misc/payment.cgi b/httemplate/misc/payment.cgi
index 081964e..d7a2c2d 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 =~ /^(\d+)\@(\d+)$/
+%       $cust_main->paymask =~ /^([\dx]+)\@([\dx]+)$/
 %         or die "unparsable payinfo ". $cust_main->payinfo;
 %       ($payinfo1, $payinfo2) = ($1, $2);
 %       $payname = $cust_main->payname;