projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
start of tap3_12_export to generate GSM TAP3.12 tap-out file for partners, RT#20768
[freeside.git]
/
FS
/
FS
/
pay_batch
/
paymentech.pm
diff --git
a/FS/FS/pay_batch/paymentech.pm
b/FS/FS/pay_batch/paymentech.pm
index
133f8f1
..
c687cc8
100644
(file)
--- a/
FS/FS/pay_batch/paymentech.pm
+++ b/
FS/FS/pay_batch/paymentech.pm
@@
-72,7
+72,9
@@
my %paytype = (
'personal savings' => 'S',
'business checking' => 'X',
'business savings' => 'X',
'personal savings' => 'S',
'business checking' => 'X',
'business savings' => 'X',
- );
+);
+
+my %paymentech_countries = map { $_ => 1 } qw( US CA GB UK );
%export_info = (
init => sub {
%export_info = (
init => sub {
@@
-121,7
+123,10
@@
my %paytype = (
avsCity => substr($_->city, 0, 20),
avsState => $_->state,
avsName => substr($_->first . ' ' . $_->last, 0, 30),
avsCity => substr($_->city, 0, 20),
avsState => $_->state,
avsName => substr($_->first . ' ' . $_->last, 0, 30),
- avsCountryCode => $_->country,
+ avsCountryCode => ( $paymentech_countries{ $_->country }
+ ? $_->country
+ : ''
+ ),
orderID => $_->paybatchnum,
amount => $_->amount * 100,
);
orderID => $_->paybatchnum,
amount => $_->amount * 100,
);