diff options
| author | ivan <ivan> | 2010-01-19 04:55:36 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-01-19 04:55:36 +0000 |
| commit | 3cef144d2be949d4c13a043187438ef86e3aab29 (patch) | |
| tree | 64fe2b1e57f20dfb19cd82c5383b36603cff899a | |
| parent | 6ec34c756c2750a3f14117aff95c38a60b8bd1b9 (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, |