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

enable hover help

Browse source
This commit is contained in:
Colin Kuskie 2005-06-19 21:09:27 +00:00
parent 56c2da7218
commit 6a49e2036b
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -102,13 +102,9 @@ sub duplicate {
#-------------------------------------------------------------------
sub getBox {
my $self = shift;
my %var;
$var{"attachment.icon"} = $self->getFileIconUrl;
$var{"attachment.url"} = $self->getFileUrl;
$var{"attachment.name"} = $self->get("filename");
$var{"attachment.size"} = $self->getStorageLocation->getFileSize;
$var{"attachment.type"} = $self->getStorageLocation->getFileExtension;
return $self->processTemplate(\%var,"PBtmpl0000000000000003");
my $var = {};
$self->getStorageLocation->getVars($self->get("filename"),$var);
return $self->processTemplate($var,"PBtmpl0000000000000003");
}
#-------------------------------------------------------------------
@ -125,6 +121,7 @@ sub getEditForm {
if ($self->get("filename") ne "") {
$tabform->getTab("properties")->readOnly(
-label=>WebGUI::International::get('current file', 'Asset_File'),
-hoverHelp=>WebGUI::International::get('current file description', 'Asset_File'),
-value=>'<a href="'.$self->getFileUrl.'"><img src="'.$self->getFileIconUrl.'" alt="'.$self->get("filename").'" border="0" align="middle" /> '.$self->get("filename").'</a>'
);
@ -132,6 +129,7 @@ sub getEditForm {
$tabform->getTab("properties")->file(
-name=>"file",
-label=>WebGUI::International::get('new file', 'Asset_File'),
-hoverHelp=>WebGUI::International::get('new file description', 'Asset_File'),
);
return $tabform;
}