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>' : ""