diff options
| -rw-r--r-- | FS/FS/pay_batch/paymentech.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/pay_batch/paymentech.pm b/FS/FS/pay_batch/paymentech.pm index 133f8f1ce..c687cc8e2 100644 --- 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', - ); +); + +my %paymentech_countries = map { $_ => 1 } qw( US CA GB UK ); %export_info = ( init => sub { @@ -121,7 +123,10 @@ my %paytype = ( 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, ); |