[freeside-commits] freeside/FS/FS/pay_batch td_eft1464.pm,1.2,1.3

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS/pay_batch
In directory wavetail.420.am:/tmp/cvs-serv4615/FS/FS/pay_batch

Modified Files:
	td_eft1464.pm 
Log Message:
manual batch approval and TD EFT fixes, RT#10545

Index: td_eft1464.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch/td_eft1464.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -d -r1.2 -r1.3
--- td_eft1464.pm	30 Nov 2010 23:44:28 -0000	1.2
+++ td_eft1464.pm	24 Dec 2010 00:40:01 -0000	1.3
@@ -76,13 +76,13 @@
     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 +94,8 @@
       $opt{'fcn'},
       $now,
       $opt{'datacenter'},
-      ' ' x 1429 #filler
+      ' ' x 1429, #filler
+      "\r"
     );
   },
   row => sub {
@@ -116,7 +117,7 @@
       sprintf('%09u', $aba),
       sprintf('%-12s', $account),
       ' ' x 22,
-      ' ' x 3,
+      '0' x 3,
       $opt{'shortname'},
       sprintf('%-30s', 
         join(' ',
@@ -127,11 +128,12 @@
       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) . "\r";
   },
   footer => sub {
     my ($pay_batch, $batchcount, $batchtotal) = @_;
@@ -145,6 +147,7 @@
       '0' x 14, # total of credit txns
       '0' x 8, # total of credit txns
       ' ' x 1396,
+      "\r"
     )
   },
 );