projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4704b15
)
another bug noticed by Steve Gertz <sglist@hollywood.mwis.net>
author
ivan
<ivan>
Sat, 17 Jul 1999 22:02:16 +0000
(22:02 +0000)
committer
ivan
<ivan>
Sat, 17 Jul 1999 22:02:16 +0000
(22:02 +0000)
site_perl/cust_pay_batch.pm
patch
|
blob
|
history
diff --git
a/site_perl/cust_pay_batch.pm
b/site_perl/cust_pay_batch.pm
index
f7350c1
..
b54412a
100644
(file)
--- 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";
$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";
if ( $self->exp eq '' ) {
return "Expriation date required";
@@
-183,7
+183,7
@@
sub check {
=head1 VERSION
=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
=head1 BUGS
@@
-202,7
+202,10
@@
added hfields
ivan@sisd.com 97-nov-13
$Log: cust_pay_batch.pm,v $
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
mostly properly OO, some work still to be done with svc_ stuff
Revision 1.2 1998/11/18 09:01:44 ivan