X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=site_perl%2Fcust_pay.pm;fp=site_perl%2Fcust_pay.pm;h=46addac01e59526ca523751193a9592e13ce8cdc;hp=2cb256baac4531ea0ca4ebfd7f1cfd296d384ac9;hb=6022e7e4e8b72e87e781a1306e3bba4f98e1d6a5;hpb=70eae60cfd775e24fa4ab02e6fb8f644eace2e94

diff --git a/site_perl/cust_pay.pm b/site_perl/cust_pay.pm
index 2cb256baa..46addac01 100644
--- a/site_perl/cust_pay.pm
+++ b/site_perl/cust_pay.pm
@@ -144,7 +144,8 @@ sub check {
 
   if ( $self->payby eq 'CARD' ) {
     my $payinfo = $self->payinfo;
-    $self->payinfo($payinfo =~ s/\D//g);
+    $payinfo =~ s/\D//g;
+    $self->payinfo($payinfo);
     if ( $self->payinfo ) {
       $self->payinfo =~ /^(\d{13,16})$/
         or return "Illegal (mistyped?) credit card number (payinfo)";
@@ -171,7 +172,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: cust_pay.pm,v 1.3 1999-01-25 12:26:11 ivan Exp $
+$Id: cust_pay.pm,v 1.4 1999-07-29 09:07:44 ivan Exp $
 
 =head1 BUGS
 
@@ -190,7 +191,10 @@ new api ivan@sisd.com 98-mar-13
 pod ivan@sisd.com 98-sep-21
 
 $Log: cust_pay.pm,v $
-Revision 1.3  1999-01-25 12:26:11  ivan
+Revision 1.4  1999-07-29 09:07:44  ivan
+embarassing.
+
+Revision 1.3  1999/01/25 12:26:11  ivan
 yet more mod_perl stuff
 
 Revision 1.2  1998/12/29 11:59:43  ivan