From 497b85bbc03d0322f0822ed934457a2319e29147 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 14 Jul 2004 03:41:17 +0000
Subject: [PATCH] ordering not maintained

---
 lib/WebGUI/Form.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Form.pm b/lib/WebGUI/Form.pm
index f288c3248..c84b01f0a 100644
--- a/lib/WebGUI/Form.pm
+++ b/lib/WebGUI/Form.pm
@@ -1329,8 +1329,8 @@ sub selectList {
 	$multiple = ' multiple="1"' if ($_[0]->{multiple});
        	$output = '<select name="'.$_[0]->{name}.'" size="'.$size.'" '.$_[0]->{extras}.$multiple.'>';
 	my %options;
+        tie %options, 'Tie::IxHash';
        	if ($_[0]->{sortByValue}) {
-               	tie %options, 'Tie::IxHash';
                	foreach my $optionKey (sort {"\L${$_[0]->{options}}{$a}" cmp "\L${$_[0]->{options}}{$b}" } keys %{$_[0]->{options}}) {
                          $options{$optionKey} = ${$_[0]->{options}}{$optionKey};
                	}