diff options
Diffstat (limited to 'Paymentech.pm')
| -rw-r--r-- | Paymentech.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Paymentech.pm b/Paymentech.pm index a64eb97..0743bba 100644 --- a/Paymentech.pm +++ b/Paymentech.pm @@ -3,7 +3,7 @@ package Business::BatchPayment::Paymentech; use 5.006; use strict; use warnings; -our $VERSION = '0.07'; +our $VERSION = '0.08'; use Unicode::Truncate 'truncate_egc'; @@ -190,12 +190,12 @@ sub format_item { push @order, ( # truncate_egc will die() on empty string avsZip => $item->zip, - avsAddress1 => $item->address ? truncate_egc($item->address, 30) : undef, - avsAddress2 => $item->address2 ? truncate_egc($item->address2, 30) : undef, - avsCity => $item->city ? truncate_egc($item->city, 20) : undef, - avsState => $item->state ? truncate_egc($item->state, 2) : undef, + avsAddress1 => $item->address ? truncate_egc($item->address, 30, '') : undef, + avsAddress2 => $item->address2 ? truncate_egc($item->address2, 30, '') : undef, + avsCity => $item->city ? truncate_egc($item->city, 20, '') : undef, + avsState => $item->state ? truncate_egc($item->state, 2, '') : undef, avsName => ($item->first_name || $item->last_name) - ? truncate_egc($item->first_name.' '.$item->last_name, 30) + ? truncate_egc($item->first_name.' '.$item->last_name, 30, '') : undef, ( $paymentech_countries{ $item->country } ? ( avsCountryCode => $item->country ) |