diff options
| author | ivan <ivan> | 1999-07-17 22:02:16 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-07-17 22:02:16 +0000 |
| commit | 097c8747ef6978ddd3715405f8fc645b5187b7c1 (patch) | |
| tree | 49b3b22031b5e78a971bb77f2fd4079fab474ab4 | |
| parent | 4704b155c817d88cda363550b9c0c0e05eb80cb0 (diff) | |
another bug noticed by Steve Gertz <sglist@hollywood.mwis.net>
| -rw-r--r-- | site_perl/cust_pay_batch.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/site_perl/cust_pay_batch.pm b/site_perl/cust_pay_batch.pm index f7350c116..b54412a81 100644 --- a/site_perl/cust_pay_batch.pm +++ b/site_perl/cust_pay_batch.pm @@ -143,7 +143,7 @@ sub check { $cardnum = $1; $self->cardnum($cardnum); validate($cardnum) or return "Illegal credit card number"; - return "Unknown card type" if cardtype($self->payinfo) eq "Unknown"; + return "Unknown card type" if cardtype($cardnum) eq "Unknown"; if ( $self->exp eq '' ) { return "Expriation date required"; @@ -183,7 +183,7 @@ sub check { =head1 VERSION -$Id: cust_pay_batch.pm,v 1.3 1998-12-29 11:59:44 ivan Exp $ +$Id: cust_pay_batch.pm,v 1.4 1999-07-17 22:02:16 ivan Exp $ =head1 BUGS @@ -202,7 +202,10 @@ added hfields ivan@sisd.com 97-nov-13 $Log: cust_pay_batch.pm,v $ -Revision 1.3 1998-12-29 11:59:44 ivan +Revision 1.4 1999-07-17 22:02:16 ivan +another bug noticed by Steve Gertz <sglist@hollywood.mwis.net> + +Revision 1.3 1998/12/29 11:59:44 ivan mostly properly OO, some work still to be done with svc_ stuff Revision 1.2 1998/11/18 09:01:44 ivan |