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

[Business-BatchPayment-Paymentech.git] / Paymentech.pm

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 )