X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fpay_batch%2Ftd_eft1464.pm;h=416e28da5c28b3df013314da92ca3eb51441c84d;hb=0fb307c305e4bc2c9c27dc25a3308beae3a4d33c;hp=c3294d1612b4afb2a353d4a78f9f104d31920613;hpb=b638e75f063e231edaf3f3859d27f3981c12c999;p=freeside.git

diff --git a/FS/FS/pay_batch/td_eft1464.pm b/FS/FS/pay_batch/td_eft1464.pm
index c3294d161..416e28da5 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{
@@ -76,13 +77,13 @@ $name = 'td_eft1464';
     my @cust_pay_batch = @{(shift)};
     my $time = $pay_batch->download || time;
     my $now = sprintf("%03u%03u", 
-      (localtime(time))[5],#year since 1900
+      (localtime(time))[5] % 100,#year since 1900
       (localtime(time))[7]+1);#day of year
 
     # Request settlement the next day
     my $duedate = time+86400;
     $opt{'due'} = sprintf("%03u%03u",
-      (localtime($duedate))[5],
+      (localtime($duedate))[5] % 100,
       (localtime($duedate))[7]+1);
 
     $opt{'fcn'} = 
@@ -94,7 +95,7 @@ $name = 'td_eft1464';
       $opt{'fcn'},
       $now,
       $opt{'datacenter'},
-      ' ' x 1429 #filler
+      ' ' x 1429, #filler
     );
   },
   row => sub {
@@ -115,8 +116,8 @@ $name = 'td_eft1464';
       $opt{'due'}, #due date...? XXX
       sprintf('%09u', $aba),
       sprintf('%-12s', $account),
-      ' ' x 22,
-      ' ' x 3,
+      '0' x 22,
+      '0' x 3,
       $opt{'shortname'},
       sprintf('%-30s', 
         join(' ',
@@ -127,11 +128,12 @@ $name = 'td_eft1464';
       sprintf('%-19s', $cust_pay_batch->paybatchnum), # originator reference num
       $opt{'retbranch'},
       $opt{'retacct'}, 
+      ' ' x 15,
       ' ' x 22,
       ' ' x 2,
       '0' x 11,
     );
-    return $control . $payment . (' ' x 720);
+    return sprintf('%-1464s',$control . $payment) ;
   },
   footer => sub {
     my ($pay_batch, $batchcount, $batchtotal) = @_;