projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
70eae60
)
embarassing.
author
ivan
<ivan>
Thu, 29 Jul 1999 09:07:44 +0000
(09:07 +0000)
committer
ivan
<ivan>
Thu, 29 Jul 1999 09:07:44 +0000
(09:07 +0000)
site_perl/cust_pay.pm
patch
|
blob
|
history
diff --git
a/site_perl/cust_pay.pm
b/site_perl/cust_pay.pm
index
2cb256b
..
46addac
100644
(file)
--- 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;
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)";
if ( $self->payinfo ) {
$self->payinfo =~ /^(\d{13,16})$/
or return "Illegal (mistyped?) credit card number (payinfo)";
@@
-171,7
+172,7
@@
sub check {
=head1 VERSION
=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
=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 $
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
yet more mod_perl stuff
Revision 1.2 1998/12/29 11:59:43 ivan