From 097c8747ef6978ddd3715405f8fc645b5187b7c1 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 17 Jul 1999 22:02:16 +0000 Subject: [PATCH] another bug noticed by Steve Gertz --- site_perl/cust_pay_batch.pm | 9 ++++++--- 1 file 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 + +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 -- 2.11.0