diff options
author | ivan <ivan> | 2006-12-29 08:41:21 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-12-29 08:41:21 +0000 |
commit | 6cb5c702b17b98be46adea4539e15d5f312e5be1 (patch) | |
tree | 9417e65e96d77f2170fee6c1569642e9e2efc82c | |
parent | bd4ed44a8526dfc5af8e1fc47cd1212a7015dbfe (diff) |
slight pedanticism
-rwxr-xr-x | httemplate/edit/process/cust_main.cgi | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/httemplate/edit/process/cust_main.cgi b/httemplate/edit/process/cust_main.cgi index 38821c36a..505973dc7 100755 --- a/httemplate/edit/process/cust_main.cgi +++ b/httemplate/edit/process/cust_main.cgi @@ -1,5 +1,3 @@ -% -% %my $error = ''; % %#unmunge stuff @@ -160,7 +158,7 @@ % && $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); @@ -173,6 +171,3 @@ %} else { % print $cgi->redirect(popurl(3). "view/cust_main.cgi?". $new->custnum); %} -% - - |