diff options
| author | Mitch Jackson <mitch@freeside.biz> | 2019-03-30 12:53:33 -0400 |
|---|---|---|
| committer | Mitch Jackson <mitch@freeside.biz> | 2019-03-30 12:54:10 -0400 |
| commit | 72955f5d78eec2ef9bf8ed8b48d3018eec7ff311 (patch) | |
| tree | f8971d56987ad527eabb76d3bce5db4677380b4a /Paymentech.pm | |
| parent | a9efaa2d1efa2093b1856ef42ae4ac411a0a1954 (diff) | |
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 ) |