-%
-%
%my $error = '';
%
%#unmunge stuff
% && $new->paycvv =~ /^\s*\*+\s*$/ ) {
% $new->paycvv($old->paycvv);
% }
-% if ($new->payby =~ /CARD|DCRD|CHEK|DCHK/ && $new->payinfo =~ /xx/) {
+% if ($new->payby =~ /^(CARD|DCRD|CHEK|DCHK)$/ && $new->payinfo =~ /xx/) {
% $new->payinfo($old->payinfo);
% }
% $error ||= $new->replace($old, \@invoicing_list);
%} else {
% print $cgi->redirect(popurl(3). "view/cust_main.cgi?". $new->custnum);
%}
-%
-
-