projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add menu items for credit card batching, debug last-minute changes to payby.pm, add...
[freeside.git]
/
FS
/
FS
/
payby.pm
diff --git
a/FS/FS/payby.pm
b/FS/FS/payby.pm
index
54e4092
..
42328b4
100644
(file)
--- a/
FS/FS/payby.pm
+++ b/
FS/FS/payby.pm
@@
-3,6
+3,7
@@
package FS::payby;
use strict;
use vars qw(%hash %payby2bop);
use Tie::IxHash;
use strict;
use vars qw(%hash %payby2bop);
use Tie::IxHash;
+use Business::CreditCard;
=head1 NAME
=head1 NAME
@@
-98,11
+99,11
@@
tie %hash, 'Tie::IxHash',
},
'DCLN' => { # This is only an event.
tinyname => 'declined',
},
'DCLN' => { # This is only an event.
tinyname => 'declined',
- shortname => '
D
eclined payment',
- longname => '
D
eclined payment',
+ shortname => '
Batch d
eclined payment',
+ longname => '
Batch d
eclined payment',
#its neither of these..
#its neither of these..
- cust_main => '',
+
#
cust_main => '',
cust_pay => '',
},
cust_pay => '',
},
@@
-117,11
+118,31
@@
sub payby2longname {
map { $_ => $hash{$_}->{longname} } $self->payby;
}
map { $_ => $hash{$_}->{longname} } $self->payby;
}
+sub shortname {
+ my( $self, $payby ) = @_;
+ $hash{$payby}->{shortname};
+}
+
+sub longname {
+ my( $self, $payby ) = @_;
+ $hash{$payby}->{longname};
+}
+
%payby2bop = (
'CARD' => 'CC',
'CHEK' => 'ECHECK',
);
%payby2bop = (
'CARD' => 'CC',
'CHEK' => 'ECHECK',
);
+sub payby2bop {
+ my( $self, $payby ) = @_;
+ $payby2bop{ $self->payby2payment($payby) };
+}
+
+sub payby2payment {
+ my( $self, $payby ) = @_;
+ $hash{$payby}{'cust_pay'} || $payby;
+}
+
sub cust_payby {
my $self = shift;
grep { ! exists $hash{$_}->{cust_main} } $self->payby;
sub cust_payby {
my $self = shift;
grep { ! exists $hash{$_}->{cust_main} } $self->payby;
@@
-142,7
+163,7
@@
sub payinfo_check{
or return "Illegal (mistyped?) credit card number (payinfo)";
$$payinforef = $1;
validate($$payinforef) or return "Illegal credit card number";
or return "Illegal (mistyped?) credit card number (payinfo)";
$$payinforef = $1;
validate($$payinforef) or return "Illegal credit card number";
- return "Unknown card type" if cardype($$payinforef) eq "Unknown";
+ return "Unknown card type" if card
t
ype($$payinforef) eq "Unknown";
} else {
$$payinforef="N/A";
}
} else {
$$payinforef="N/A";
}