forward port of bug fixes and POD upgrade

This commit is contained in:
Colin Kuskie 2006-02-08 21:04:02 +00:00
parent 87287d9b58
commit 662c43ca21
4 changed files with 9 additions and 6 deletions

View file

@ -173,7 +173,7 @@ sub editSave {
$data{filename} = $data{title} = $data{menuTitle} = $filename;
$data{templateId} = 'PBtmpl0000000000000024';
$data{templateId} = 'PBtmpl0000000000000088' if ($selfName eq "WebGUI::Asset::File::Image");
$data{url} = $self->getParent->getUrl.'/'.$filename;
$data{url} = $self->getParent->get('url').'/'.$filename;
my $newAsset = $self->getParent->addChild(\%data);
delete $newAsset->{_storageLocation};
$newAsset->setSize($storage->getFileSize($filename));