diff options
| author | ivan <ivan> | 1999-07-29 09:07:44 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-07-29 09:07:44 +0000 |
| commit | 6022e7e4e8b72e87e781a1306e3bba4f98e1d6a5 (patch) | |
| tree | 39e5575c94fdcf3f6e38d065f094eb0c17286081 /site_perl/cust_pay.pm | |
| parent | 70eae60cfd775e24fa4ab02e6fb8f644eace2e94 (diff) | |
embarassing.
Diffstat (limited to 'site_perl/cust_pay.pm')
| -rw-r--r-- | site_perl/cust_pay.pm | 10 |
1 files changed, 7 insertions, 3 deletions
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 |