diff options
| -rw-r--r-- | FS/FS/pay_batch/paymentech.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/FS/FS/pay_batch/paymentech.pm b/FS/FS/pay_batch/paymentech.pm index 47be4eb..1ecf35a 100644 --- a/FS/FS/pay_batch/paymentech.pm +++ b/FS/FS/pay_batch/paymentech.pm @@ -130,10 +130,10 @@ my %paymentech_countries = map { $_ => 1 } qw( US CA GB UK ); avsCity => substr($_->city, 0, 20), avsState => substr($_->state, 0, 2), avsName => substr($_->first. ' '. $_->last, 0, 30), - avsCountryCode => ( $paymentech_countries{ $_->country } - ? $_->country - : '' - ), + ( $paymentech_countries{ $_->country } + ? ( avsCountryCode => $_->country ) + : () + ), orderID => $_->paybatchnum, amount => $_->amount * 100, ); |