[freeside-commits] freeside/FS/FS/pay_batch paymentech.pm, 1.2.2.2, 1.2.2.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/pay_batch
In directory wavetail.420.am:/tmp/cvs-serv31891

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	paymentech.pm 
Log Message:
patch from Peter Loeppky to make sure some xml fields don't get larger than what paymentech wants

Index: paymentech.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch/paymentech.pm,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -u -d -r1.2.2.2 -r1.2.2.3
--- paymentech.pm	19 Dec 2009 20:58:13 -0000	1.2.2.2
+++ paymentech.pm	19 Jan 2010 04:55:36 -0000	1.2.2.3
@@ -87,12 +87,12 @@
           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,