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

placed Asset/File help into its own set of files

Browse source
This commit is contained in:
Colin Kuskie 2005-02-24 23:22:35 +00:00
parent 5ebc401d6f
commit cb948913c8
5 changed files with 67 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -120,14 +120,14 @@ sub getEditForm {
my $tabform = $self->SUPER::getEditForm();
if ($self->get("filename") ne "") {
$tabform->getTab("properties")->readOnly(
-label=>WebGUI::International::get('current file', 'Asset'),
-label=>WebGUI::International::get('current file', 'File'),
-value=>'<a href="'.$self->getFileUrl.'"><img src="'.$self->getFileIconUrl.'" alt="'.$self->get("filename").'" border="0" align="middle" /> '.$self->get("filename").'</a>'
);
}
$tabform->getTab("properties")->file(
-name=>"file",
-label=>WebGUI::International::get('new file', 'Asset'),
-label=>WebGUI::International::get('new file', 'File'),
);
return $tabform;
}