From 1678ec1805e8184d8d48cb7f18b509acc5f3e83e Mon Sep 17 00:00:00 2001
From: Andy Grundman <agrundma@webgui-cvs>
Date: Tue, 8 Jul 2003 15:08:48 +0000
Subject: [PATCH] Changed database link select boxes to use IxHash for sorting

---
 lib/WebGUI/Operation/Group.pm   | 9 +++++----
 lib/WebGUI/Wobject/SQLReport.pm | 9 +++++----
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm
index ef454d669..11fc9da2c 100644
--- a/lib/WebGUI/Operation/Group.pm
+++ b/lib/WebGUI/Operation/Group.pm
@@ -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>' : ""
diff --git a/lib/WebGUI/Wobject/SQLReport.pm b/lib/WebGUI/Wobject/SQLReport.pm
index 938e6b34a..9944d3b83 100644
--- a/lib/WebGUI/Wobject/SQLReport.pm
+++ b/lib/WebGUI/Wobject/SQLReport.pm
@@ -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>' : ""