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

added file asset uploads

Browse source
This commit is contained in:
JT Smith 2004-12-22 04:03:28 +00:00
parent 95bac10986
commit f72368fd8d
4 changed files with 36 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/File.pm
View file

@ -99,11 +99,15 @@ sub getEditForm {
my $tabform = $self->SUPER::getEditForm();
if ($self->get("filename") ne "") {
my $storage = WebGUI::Storage->get($self->get("storageId"));
$tabform->getTab("properties")->readOnly(
-label=>"Current File",
-value=>'<a href="'.$storage->getUrl($self->get("filename")).'"><img src="'.$storage->getFileIconUrl($self->get("filename")).'" alt="'.$self->get("filename").'" border="0" align="middle" /> '.$self->get("filename").'</a>'
);
}
$tabform->getTab("properties")->file(
-name=>"file",
-label=>"File To Upload"
-label=>"New File To Upload"
);
return $tabform;
}