From 38691d4d87bec5b1ceffd5a399cdf299af4b1bd5 Mon Sep 17 00:00:00 2001 From: mark Date: Thu, 21 Apr 2011 06:07:14 +0000 Subject: [PATCH] fix EFT1464 batch format, #10545 --- FS/FS/pay_batch/td_eft1464.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/FS/FS/pay_batch/td_eft1464.pm b/FS/FS/pay_batch/td_eft1464.pm index 416e28da5..afdc1bef3 100644 --- a/FS/FS/pay_batch/td_eft1464.pm +++ b/FS/FS/pay_batch/td_eft1464.pm @@ -65,11 +65,11 @@ $name = 'td_eft1464'; 'retacct', 'cpacode', } = $conf->config("batchconfig-td_eft1464"); - $opt{'origid'} = sprintf('%-10s', $opt{'origid'}); - $opt{'shortname'} = sprintf('%-15s', $opt{'shortname'}); - $opt{'longname'} = sprintf('%-30s', $opt{'longname'}); - $opt{'retbranch'} = '0004'.sprintf('%5s',$opt{'retbranch'}); - $opt{'retacct'} = sprintf('%-11s', $opt{'retacct'}). ' '; + $opt{'origid'} = sprintf('%-10.10s', $opt{'origid'}); + $opt{'shortname'} = sprintf('%-15.15s', $opt{'shortname'}); + $opt{'longname'} = sprintf('%-30.30s', $opt{'longname'}); + $opt{'retbranch'} = '0004'.sprintf('%5.5s',$opt{'retbranch'}); + $opt{'retacct'} = sprintf('%-11.11s', $opt{'retacct'}). ' '; $i = 1; }, header => sub { @@ -115,17 +115,17 @@ $name = 'td_eft1464'; sprintf('%010.0f', $cust_pay_batch->amount*100), $opt{'due'}, #due date...? XXX sprintf('%09u', $aba), - sprintf('%-12s', $account), + sprintf('%-12.12s', $account), '0' x 22, '0' x 3, $opt{'shortname'}, - sprintf('%-30s', + sprintf('%-30.30s', join(' ', $cust_pay_batch->first, $cust_pay_batch->last) ), $opt{'longname'}, $opt{'origid'}, - sprintf('%-19s', $cust_pay_batch->paybatchnum), # originator reference num + sprintf('%-19.19s', $cust_pay_batch->paybatchnum), # originator reference num $opt{'retbranch'}, $opt{'retacct'}, ' ' x 15, -- 2.11.0