fix freeside-sellfservice-xmlrpcd for implied hash :/

[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..416e28d 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 = (
+  delimiter => '',
   init => sub {
     $conf = shift;
     @opt{
@@ -95,7 +96,6 @@ $name = 'td_eft1464';
       $now,
       $opt{'datacenter'},
       ' ' x 1429, #filler
-      "\r"
     );
   },
   row => sub {
@@ -116,7 +116,7 @@ $name = 'td_eft1464';
       $opt{'due'}, #due date...? XXX
       sprintf('%09u', $aba),
       sprintf('%-12s', $account),
-      ' ' x 22,
+      '0' x 22,
       '0' x 3,
       $opt{'shortname'},
       sprintf('%-30s', 
@@ -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"
     )
   },
 );