From: ivan <ivan>
Date: Tue, 19 Jan 2010 04:55:36 +0000 (+0000)
Subject: patch from Peter Loeppky to make sure some xml fields don't get larger than what... 
X-Git-Tag: freeside_1_9_2~113
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=3cef144d2be949d4c13a043187438ef86e3aab29;p=freeside.git

patch from Peter Loeppky to make sure some xml fields don't get larger than what paymentech wants
---

diff --git a/FS/FS/pay_batch/paymentech.pm b/FS/FS/pay_batch/paymentech.pm
index d62a1f11f..89f0c7723 100644
--- a/FS/FS/pay_batch/paymentech.pm
+++ b/FS/FS/pay_batch/paymentech.pm
@@ -87,12 +87,12 @@ my %paytype = (
           ecpBankAcctType => $paytype{lc($_->cust_main->paytype)},
           ecpDelvMethod   => 'A',
         ),
-        avsZip          => $_->zip,
-        avsAddress1     => $_->address1,
-        avsAddress2     => $_->address2,
-        avsCity         => $_->city,
+        avsZip          => substr($_->zip, 0, 10),
+        avsAddress1     => substr($_->address1, 0, 30),
+        avsAddress2     => substr($_->address2, 0, 30),
+        avsCity         => substr($_->city, 0, 20),
         avsState        => $_->state,
-        avsName        => $_->first . ' ' . $_->last,
+        avsName        => substr($_->first . ' ' . $_->last, 0, 30),
         avsCountryCode => $_->country,
         orderID        => $_->paybatchnum,
         amount         => $_->amount * 100,