From 6f9ecf9166104067d8d038fdcc7c8296d0a58cd3 Mon Sep 17 00:00:00 2001 From: Mitch Jackson Date: Fri, 1 Mar 2019 18:57:05 -0500 Subject: [PATCH] RT# 82955 Fix egc_truncate error in FS::pay_batch::paymentech --- FS/FS/pay_batch/paymentech.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/FS/FS/pay_batch/paymentech.pm b/FS/FS/pay_batch/paymentech.pm index 094d50114..95627bcd6 100644 --- a/FS/FS/pay_batch/paymentech.pm +++ b/FS/FS/pay_batch/paymentech.pm @@ -128,13 +128,13 @@ my %paymentech_countries = map { $_ => 1 } qw( US CA GB UK ); ecpDelvMethod => 'A', ), # truncate_egc will die() on empty string - avsZip => $_->zip ? truncate_egc($_->zip, 10) : undef, - avsAddress1 => $_->address1 ? truncate_egc($_->address1, 30) : undef, - avsAddress2 => $_->address2 ? truncate_egc($_->address2, 30) : undef, - avsCity => $_->city ? truncate_egc($_->city, 20) : undef, - avsState => $_->state ? truncate_egc($_->state, 2) : undef, + avsZip => $_->zip ? truncate_egc($_->zip, 10, '') : undef, + avsAddress1 => $_->address1 ? truncate_egc($_->address1, 30, '') : undef, + avsAddress2 => $_->address2 ? truncate_egc($_->address2, 30, '') : undef, + avsCity => $_->city ? truncate_egc($_->city, 20, '') : undef, + avsState => $_->state ? truncate_egc($_->state, 2, '') : undef, avsName => ($_->first || $_->last) - ? truncate_egc($_->first. ' '. $_->last, 30) : undef, + ? truncate_egc($_->first. ' '. $_->last, 30, '') : undef, ( $paymentech_countries{ $_->country } ? ( avsCountryCode => $_->country ) : () -- 2.11.0