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

moved metadata system into asset superclass, and added a fileImport script

Browse source
This commit is contained in:
JT Smith 2005-01-08 16:53:29 +00:00
parent 1914386984
commit 2110af418a
16 changed files with 623 additions and 1056 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Asset/FilePile.pm
View file

@ -165,7 +165,6 @@ sub editSave {
my %data;
my $class = 'WebGUI::Asset::File';
$class = "WebGUI::Asset::File::Image" if (isIn($storage->getFileExtension($filename),qw(jpg jpeg gif png)));
my $newAsset = $parent->addChild({className=>$class});
foreach my $definition (@{$self->definition}) {
foreach my $property (keys %{$definition->{properties}}) {
$data{$property} = WebGUI::FormProcessor::process(
@ -175,11 +174,11 @@ sub editSave {
);
}
}
$data{filename} = $filename;
$data->{className} = $class;
$data{storageId} = $storage->getId;
$data{title} = $data{menuTitle} = $filename;
$data{filename} = $data{title} = $data{menuTitle} = $filename;
$data{url} = $parent->getUrl.'/'.$filename;
$newAsset->update(\%data);
my $newAsset = $parent->addChild(\%data);
$newAsset->setSize($storage->getFileSize($filename));
$newAsset->generateThumbnail if ($class eq "WebGUI::Asset::File::Image");
}