projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
TD EFT format fixes, RT#10545
[freeside.git]
/
FS
/
FS
/
pay_batch
/
td_eft1464.pm
diff --git
a/FS/FS/pay_batch/td_eft1464.pm
b/FS/FS/pay_batch/td_eft1464.pm
index
7f58ab5
..
851f625
100644
(file)
--- a/
FS/FS/pay_batch/td_eft1464.pm
+++ b/
FS/FS/pay_batch/td_eft1464.pm
@@
-53,6
+53,7
@@
$name = 'td_eft1464';
# just to suppress warning; importing this format is a fatal error
%export_info = (
# just to suppress warning; importing this format is a fatal error
%export_info = (
+ delimiter => '',
init => sub {
$conf = shift;
@opt{
init => sub {
$conf = shift;
@opt{
@@
-95,7
+96,6
@@
$name = 'td_eft1464';
$now,
$opt{'datacenter'},
' ' x 1429, #filler
$now,
$opt{'datacenter'},
' ' x 1429, #filler
- "\r"
);
},
row => sub {
);
},
row => sub {
@@
-133,7
+133,7
@@
$name = 'td_eft1464';
' ' x 2,
'0' x 11,
);
' ' x 2,
'0' x 11,
);
- return sprintf('%-1464s',$control . $payment)
. "\r"
;
+ return sprintf('%-1464s',$control . $payment) ;
},
footer => sub {
my ($pay_batch, $batchcount, $batchtotal) = @_;
},
footer => sub {
my ($pay_batch, $batchcount, $batchtotal) = @_;
@@
-147,7
+147,6
@@
$name = 'td_eft1464';
'0' x 14, # total of credit txns
'0' x 8, # total of credit txns
' ' x 1396,
'0' x 14, # total of credit txns
'0' x 8, # total of credit txns
' ' x 1396,
- "\r"
)
},
);
)
},
);