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

adding Shortcut/Dashlet reload icon.

Browse source
This commit is contained in:
Matthew Wilson 2005-12-08 03:46:36 +00:00
parent 2e0c3dc48c
commit a421e5297a
5 changed files with 55 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Asset/Shortcut.pm
View file

@ -200,6 +200,10 @@ sub definition {
prefFieldsToImport=>{
fieldType=>"checkList",
defaultValue=>undef
},
showReloadIcon=>{
fieldType=>"yesNo",
defaultValue=>1
}
}
});
@ -264,18 +268,23 @@ sub getEditForm {
},
-extras=>$self->{_disabled}
);
$tabform->getTab("properties")->readOnly(
-value=>$self->_drawQueryBuilder(),
-label=>WebGUI::International::get("Criteria","Asset_Shortcut"),
-hoverHelp=>WebGUI::International::get("Criteria description","Asset_Shortcut")
);
$tabform->getTab("properties")->readOnly(
-value=>$self->_drawQueryBuilder(),
-label=>WebGUI::International::get("Criteria","Asset_Shortcut"),
-hoverHelp=>WebGUI::International::get("Criteria description","Asset_Shortcut")
);
}
$tabform->addTab('overrides',$i18n->get('Overrides'));
$tabform->getTab('overrides')->raw($self->getOverridesList);
if ($self->isDashlet) {
$tabform->addTab('preferences',$i18n->get('Preferences'));
$tabform->getTab('preferences')->raw($self->getFieldsList);
$tabform->getTab("properties")->yesNo(
-value=>$self->getValue("showReloadIcon"),
-name=>"showReloadIcon",
-label=>WebGUI::International::get("show reload icon","Asset_Shortcut"),
-hoverHelp=>WebGUI::International::get("show reload icon description","Asset_Shortcut")
);
}
return $tabform;
}
@ -425,6 +434,7 @@ sub getShortcut {
foreach my $override (keys %overrides) {
$self->{_shortcut}{_properties}{$override} = $overrides{$override}{parsedValue};
}
$self->{_shortcut}{_properties}{showReloadIcon} = $self->get("showReloadIcon");
}
return $self->{_shortcut};
}