read line by line for thingy import instead of slurp
This commit is contained in:
parent
bdcf6eb4bc
commit
b2317c7136
1 changed files with 2 additions and 3 deletions
|
|
@ -1945,10 +1945,8 @@ thingId=".$session->db->quote($thingId));
|
|||
open my $importFile,"<",$storage->getPath($file);
|
||||
my $lineNumber = 0;
|
||||
my @data = ();
|
||||
my @lines = <$importFile>;
|
||||
close $importFile;
|
||||
|
||||
for my $line (@lines){
|
||||
while (my $line = <$importFile>) {
|
||||
if ($lineNumber == 0 && $session->form->process('ignoreFirstLine')){
|
||||
$lineNumber++;
|
||||
$error->info("Skipping first line");
|
||||
|
|
@ -2024,6 +2022,7 @@ thingId=".$session->db->quote($thingId));
|
|||
$thingData{updatedById} = $session->user->userId;
|
||||
$self->setCollateral("Thingy_".$thingId,"thingDataId",\%thingData,0,0) if ($thingData{thingDataId});
|
||||
}
|
||||
close $importFile;
|
||||
}
|
||||
|
||||
return $self->www_search($thingId);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue