Fix line ending processing by the Thingy. It will now accept CSV files with any line endings. Fixes bug #11746.

This commit is contained in:
Colin Kuskie 2010-09-13 07:52:14 -07:00
parent 0d59993e45
commit 6c40adee13
4 changed files with 8 additions and 1 deletions

View file

@ -17,6 +17,7 @@ use WebGUI::International;
use WebGUI::Text;
use WebGUI::Form::File;
use WebGUI::DateTime;
use PerlIO::eol qw/NATIVE/;
use Moose;
use WebGUI::Definition::Asset;
@ -2797,7 +2798,7 @@ sub www_import {
next unless ($storage->getFileExtension($file) eq "csv");
$error->info("Found import file $file");
open my $importFile,"<",$storage->getPath($file);
open my $importFile,"<:raw:eol(NATIVE)",$storage->getPath($file);
my $lineNumber = 0;
my @data = ();