From bef5524812ba07f939d1445a8c64b4474787e8f6 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Wed, 10 Feb 2010 02:12:43 +0000
Subject: RT#7274: accept CR/LF in RBC batch import

---
 FS/FS/pay_batch.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'FS/FS/pay_batch.pm')

diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm
index 59ff2c3..6a27554 100644
--- a/FS/FS/pay_batch.pm
+++ b/FS/FS/pay_batch.pm
@@ -272,11 +272,12 @@ sub import_results {
         };
         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;
-- 
cgit v1.1