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

read line by line for thingy import instead of slurp

Browse source
This commit is contained in:
Graham Knop 2008-04-08 22:04:06 +00:00
parent bdcf6eb4bc
commit b2317c7136
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Asset/Wobject/Thingy.pm
View file

@ -1945,10 +1945,8 @@ thingId=".$session->db->quote($thingId));
open my $importFile,"<",$storage->getPath($file); open my $importFile,"<",$storage->getPath($file);
my $lineNumber = 0; my $lineNumber = 0;
my @data = (); my @data = ();
my @lines = <$importFile>;
close $importFile;
for my $line (@lines){ while (my $line = <$importFile>) {
if ($lineNumber == 0 && $session->form->process('ignoreFirstLine')){ if ($lineNumber == 0 && $session->form->process('ignoreFirstLine')){
$lineNumber++; $lineNumber++;
$error->info("Skipping first line"); $error->info("Skipping first line");
@ -2024,6 +2022,7 @@ thingId=".$session->db->quote($thingId));
$thingData{updatedById} = $session->user->userId; $thingData{updatedById} = $session->user->userId;
$self->setCollateral("Thingy_".$thingId,"thingDataId",\%thingData,0,0) if ($thingData{thingDataId}); $self->setCollateral("Thingy_".$thingId,"thingDataId",\%thingData,0,0) if ($thingData{thingDataId});
} }
close $importFile;
} }
return $self->www_search($thingId); return $self->www_search($thingId);