diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-01-14 19:19:59 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-01-14 19:19:59 -0800 |
| commit | 7f8a7298e6a68c2b95e0c4a30d411889046f48b8 (patch) | |
| tree | 34f5d3ecda72ad1014cc0f13d4728538a445cc1d /FS | |
| parent | 3d3b8acd653b2af3d55e78fc30ec34b621d80b71 (diff) | |
truncate paymentech state to 2 chars, RT#20994
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/pay_batch/paymentech.pm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/FS/FS/pay_batch/paymentech.pm b/FS/FS/pay_batch/paymentech.pm index c687cc8e2..c75903de7 100644 --- a/FS/FS/pay_batch/paymentech.pm +++ b/FS/FS/pay_batch/paymentech.pm @@ -103,32 +103,32 @@ my %paymentech_countries = map { $_ => 1 } qw( US CA GB UK ); $xml->startTag('newOrder', BatchRequestNo => $count++); my $status = $_->cust_main->status; tie my %order, 'Tie::IxHash', ( - industryType => 'EC', - transType => 'AC', - bin => $bin, - merchantID => $merchantID, - terminalID => $terminalID, + industryType => 'EC', + transType => 'AC', + bin => $bin, + merchantID => $merchantID, + terminalID => $terminalID, ($_->payby eq 'CARD') ? ( - ccAccountNum => $_->payinfo, - ccExp => $_->expmmyy, + ccAccountNum => $_->payinfo, + ccExp => $_->expmmyy, ) : ( ecpCheckRT => ($_->payinfo =~ /@(\d+)/), ecpCheckDDA => ($_->payinfo =~ /(\d+)@/), ecpBankAcctType => $paytype{lc($_->cust_main->paytype)}, ecpDelvMethod => 'A', ), - avsZip => substr($_->zip, 0, 10), + avsZip => substr($_->zip, 0, 10), avsAddress1 => substr($_->address1, 0, 30), avsAddress2 => substr($_->address2, 0, 30), - avsCity => substr($_->city, 0, 20), - avsState => $_->state, - avsName => substr($_->first . ' ' . $_->last, 0, 30), - avsCountryCode => ( $paymentech_countries{ $_->country } - ? $_->country - : '' - ), - orderID => $_->paybatchnum, - amount => $_->amount * 100, + avsCity => substr($_->city, 0, 20), + avsState => substr($_->state, 0, 2), + avsName => substr($_->first. ' '. $_->last, 0, 30), + avsCountryCode => ( $paymentech_countries{ $_->country } + ? $_->country + : '' + ), + orderID => $_->paybatchnum, + amount => $_->amount * 100, ); # only do this if recurringInd is enabled in config, # and the customer has at least one non-canceled recurring package |