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 | |
| parent | a9efaa2d1efa2093b1856ef42ae4ac411a0a1954 (diff) | |
| -rw-r--r-- | Changes | 6 | ||||
| -rw-r--r-- | META.yml | 2 | ||||
| -rw-r--r-- | Paymentech.pm | 12 | ||||
| -rw-r--r-- | debian/changelog | 6 |
4 files changed, 19 insertions, 7 deletions
@@ -1,5 +1,11 @@ Revision history for Business-BatchPayment-Paymentech +0.08 Sat Mar 30 12:18:00 EST 2019 + - Suppress elipsis character from strings truncated by Truncate::Unicode + +0.07 Thu Mar 01 03:10:37 GMT 2018 + - Use Truncate::Unicode to clip string length + 0.06 Wed Dec 21 15:08:00 PST 2016 - Add with_recurringInd option to control use of recurring indicator. @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Business-BatchPayment-Paymentech -version: 0.07 +version: 0.08 abstract: Chase Paymentech XML batch format. author: - Mark Wells <mark@freeside.biz> 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 ) diff --git a/debian/changelog b/debian/changelog index b050b26..3793d95 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +libbusiness-batchpayment-paymentech-perl (0.08) unstable; urgency=medium + + * Suppress elipsis character from strings truncated by Truncate::Unicode + + -- Mitch Jackson <mitch@freeside.biz> Sat, 30 Mar 2019 12:22:00 -0500 + libbusiness-batchpayment-paymentech-perl (0.07) unstable; urgency=medium * Start using Unicode::Truncate. |