0.08 Suppress elipsis character from strings truncated by Truncate::Unicode

diff --git a/Changes b/Changes
index ed662f5..9f58fae 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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.
 

diff --git a/META.yml b/META.yml
index 3cb1085..c07bf33 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -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 (file)
--- 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 (file)
--- 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.