[freeside-commits] freeside/FS/FS pay_batch.pm,1.18,1.19

[Mark Wells]

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

Modified Files:
	pay_batch.pm 
Log Message:
RT#7274: accept CR/LF in RBC batch import

Index: pay_batch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- pay_batch.pm	7 Jan 2010 09:48:50 -0000	1.18
+++ pay_batch.pm	10 Feb 2010 02:12:43 -0000	1.19
@@ -272,11 +272,12 @@
         };
         push @all_values, [ $csv->fields(), $line ];
       }elsif ($filetype eq 'fixed'){
-        my @values = ( $line =~ /$formatre/, $line );
+        my @values = ( $line =~ /$formatre/ );
         unless (@values) {
           $dbh->rollback if $oldAutoCommit;
           return "can't parse: ". $line;
         };
+        push @values, $line;
         push @all_values, \@values;
       }else{
         $dbh->rollback if $oldAutoCommit;