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

Changed database link select boxes to use IxHash for sorting

Browse source
This commit is contained in:
Andy Grundman 2003-07-08 15:08:48 +00:00
parent 2a8857c06c
commit 1678ec1805
2 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Operation/Group.pm
View file

@ -217,12 +217,13 @@ sub www_editGroup {
-value=>$g->autoDelete,
-label=>WebGUI::International::get(975)
);
my %databaseLinkOptions;
tie %databaseLinkOptions, 'Tie::IxHash',
"0"=>WebGUI::International::get(19,'SQLReport'),
WebGUI::DatabaseLink::getHash();
$f->selectList(
-name=>"databaseLinkId",
-options=>{
"0"=>WebGUI::International::get(19,'SQLReport'),
WebGUI::DatabaseLink::getHash(),
},
-options=>\%databaseLinkOptions,
-label=>WebGUI::International::get(20,'SQLReport'),
-value=>[$g->databaseLinkId],
-subtext=>(WebGUI::Privilege::isInGroup(3)) ? '<a href="'.WebGUI::URL::page("op=listDatabaseLinks").'">'.WebGUI::International::get(981).'</a>' : ""

9
lib/WebGUI/Wobject/SQLReport.pm
View file

@ -100,12 +100,13 @@ sub www_edit {
-label=>WebGUI::International::get(3,$_[0]->get("namespace")),
-value=>$_[0]->getValue("template")
);
my %databaseLinkOptions;
tie %databaseLinkOptions, 'Tie::IxHash',
"0"=>WebGUI::International::get(19,$_[0]->get("namespace")),
WebGUI::DatabaseLink::getHash();
$privileges->selectList(
-name=>"databaseLinkId",
-options=>{
"0"=>WebGUI::International::get(19,$_[0]->get("namespace")),
WebGUI::DatabaseLink::getHash(),
},
-options=>\%databaseLinkOptions,
-label=>WebGUI::International::get(20,$_[0]->get("namespace")),
-value=>[$_[0]->getValue("databaseLinkId")],
-subtext=>(WebGUI::Privilege::isInGroup(3)) ? '<a href="'.WebGUI::URL::page("op=listDatabaseLinks").'">'.WebGUI::International::get(981).'</a>' : ""