diff options
| author | Mitch Jackson <mitch@freeside.biz> | 2019-03-01 18:57:05 -0500 |
|---|---|---|
| committer | Mitch Jackson <mitch@freeside.biz> | 2019-03-01 19:07:40 -0500 |
| commit | c06c0fb20f33de42af60208e43e41d84f3df66ea (patch) | |
| tree | b08cfd38de4fe2f4d2b544b98a528aabe2cac02a | |
| parent | 4278039073ed08e3a139b091626e17338bfedf48 (diff) | |
RT# 82955 Fix egc_truncate error in FS::pay_batch::paymentech
| -rw-r--r-- | FS/FS/pay_batch/paymentech.pm | 12 |
1 files 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 ) : () |