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

[Mark Wells]

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

Modified Files:
	td_eft1464.pm 
Log Message:
TD EFT format fixes, RT#10545

Index: td_eft1464.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch/td_eft1464.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -d -r1.3 -r1.4
--- td_eft1464.pm	24 Dec 2010 00:40:01 -0000	1.3
+++ td_eft1464.pm	18 Jan 2011 00:32:46 -0000	1.4
@@ -53,6 +53,7 @@
 # just to suppress warning; importing this format is a fatal error
 
 %export_info = (
+  delimiter => '',
   init => sub {
     $conf = shift;
     @opt{
@@ -95,7 +96,6 @@
       $now,
       $opt{'datacenter'},
       ' ' x 1429, #filler
-      "\r"
     );
   },
   row => sub {
@@ -133,7 +133,7 @@
       ' ' 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 @@
       '0' x 14, # total of credit txns
       '0' x 8, # total of credit txns
       ' ' x 1396,
-      "\r"
     )
   },
 );