diff options
author | mark <mark> | 2010-02-10 02:12:43 +0000 |
---|---|---|
committer | mark <mark> | 2010-02-10 02:12:43 +0000 |
commit | bef5524812ba07f939d1445a8c64b4474787e8f6 (patch) | |
tree | b7a22329c23ea66d97d2f70cb9a156f735ef5fc8 /FS/FS/pay_batch.pm | |
parent | 5493e779c5a975d32523692b3357b02d3434cbe1 (diff) |
RT#7274: accept CR/LF in RBC batch import
Diffstat (limited to 'FS/FS/pay_batch.pm')
-rw-r--r-- | FS/FS/pay_batch.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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; |