diff options
author | mark <mark> | 2011-01-18 00:32:46 +0000 |
---|---|---|
committer | mark <mark> | 2011-01-18 00:32:46 +0000 |
commit | 8ce6ed212e593c9bfe4834e981b4e987cabe4e8d (patch) | |
tree | e2e9972d2a3c6404122fc6974925048fdda46230 /FS/FS/pay_batch/td_eft1464.pm | |
parent | c9a2afc4fc938e6813f336ed9942477cc75b1b7f (diff) |
TD EFT format fixes, RT#10545
Diffstat (limited to 'FS/FS/pay_batch/td_eft1464.pm')
-rw-r--r-- | FS/FS/pay_batch/td_eft1464.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/FS/FS/pay_batch/td_eft1464.pm b/FS/FS/pay_batch/td_eft1464.pm index 7f58ab5..851f625 100644 --- 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 = ( + delimiter => '', init => sub { $conf = shift; @opt{ @@ -95,7 +96,6 @@ $name = 'td_eft1464'; $now, $opt{'datacenter'}, ' ' x 1429, #filler - "\r" ); }, row => sub { @@ -133,7 +133,7 @@ $name = 'td_eft1464'; ' ' x 2, '0' x 11, ); - return sprintf('%-1464s',$control . $payment) . "\r"; + return sprintf('%-1464s',$control . $payment) ; }, 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, - "\r" ) }, ); |