oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Let the product importer import files with windows style line endings.

Browse source
This commit is contained in:
Colin Kuskie 2008-09-29 00:57:02 +00:00
parent 72edbfd628
commit de889434da
4 changed files with 32 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Wobject/Shelf.pm
View file

@ -158,6 +158,7 @@ sub importProducts {
my $headers;
$headers = <$table>;
chomp $headers;
$headers =~ tr/\r//d;
my @headers = WebGUI::Text::splitCSV($headers);
WebGUI::Error::InvalidFile->throw(error => qq{Bad header found in the CSV file}, brokenFile => $filePath)
unless (join(q{-}, sort @headers) eq 'mastersku-price-quantity-shortdescription-title-varSku-weight')
@ -167,6 +168,7 @@ sub importProducts {
my $line = 1;
while (my $productRow = <$table>) {
chomp $productRow;
$productRow =~ tr/\r//d;
$productRow =~ s/\s*#.+$//;
next unless $productRow;
local $_;