diff options
| author | ivan <ivan> | 2010-01-19 04:54:49 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-01-19 04:54:49 +0000 |
| commit | 230b8ef145194a2efde57215cc352cb8c02c49f5 (patch) | |
| tree | 752141b7d14e6fa3c1a5dfac99403598c9375846 | |
| parent | 074f28c90479380eb0248e0b36f30c60bff40764 (diff) | |
patch from Peter Loeppky to make sure some xml fields don't get larger than what paymentech wants
| -rw-r--r-- | FS/FS/pay_batch/paymentech.pm | 10 |
1 files changed, 5 insertions, 5 deletions
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, |