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

fix package importing

Browse source
This commit is contained in:
Graham Knop 2007-09-07 15:15:16 +00:00
parent 2de16a2cf8
commit eaf0a55ec1
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/7.x.x.txt
View file

@ -10,6 +10,7 @@
- fix: wrong ssl link in iTransact settings - fix: wrong ssl link in iTransact settings
- fix thumbnail script with Graphics::Magick - fix thumbnail script with Graphics::Magick
- fix ordering of statuses in In/Out board - fix ordering of statuses in In/Out board
- fix package importing
7.4.5 7.4.5
- fix: Apostrophy incorrectly escaped as double quote in some places - fix: Apostrophy incorrectly escaped as double quote in some places

5
lib/WebGUI/AssetPackage.pm
View file

@ -181,7 +181,10 @@ sub importPackage {
foreach my $file (sort(@{$decompressed->getFiles})) { foreach my $file (sort(@{$decompressed->getFiles})) {
next unless ($decompressed->getFileExtension($file) eq "json"); next unless ($decompressed->getFileExtension($file) eq "json");
$error->info("Found data file $file"); $error->info("Found data file $file");
my $data = eval{JSON::jsonToObj($decompressed->getFileContentsAsScalar($file))}; my $data = eval{
local $JSON::UnMapping = 1;
JSON::jsonToObj($decompressed->getFileContentsAsScalar($file))
};
if ($@ || $data->{properties}{assetId} eq "" || $data->{properties}{className} eq "" || $data->{properties}{revisionDate} eq "") { if ($@ || $data->{properties}{assetId} eq "" || $data->{properties}{className} eq "" || $data->{properties}{revisionDate} eq "") {
$error->error("package corruption: ".$@) if ($@); $error->error("package corruption: ".$@) if ($@);
return "corrupt"; return "corrupt";