From e56d8ff53c75b6576120251ff49f3fb7de924d0e Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 23 Mar 2006 16:43:17 +0000
Subject: [PATCH] fix ordered options in lists

---
 lib/WebGUI/Form/List.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Form/List.pm b/lib/WebGUI/Form/List.pm
index c68953e47..9ec149487 100644
--- a/lib/WebGUI/Form/List.pm
+++ b/lib/WebGUI/Form/List.pm
@@ -234,12 +234,12 @@ to the case of the values.
 =cut
 
 sub orderedHash {
-        my ($self) = @_;
+	my ($self) = @_;
         my %options;
         tie %options, 'Tie::IxHash';
 	my $original = $self->get("options");
-        if ($self->{sortByValue}) {
-                foreach my $optionKey (sort {"\L${$original}{$a}" cmp "\L${$original}}{$b}" } keys %{$original}) {
+        if ($self->get('sortByValue')) {
+                foreach my $optionKey (sort {"\L$original->{$a}" cmp "\L$original->{$b}" } keys %{$original}) {
                          $options{$optionKey} = $original->{$optionKey};
                 }
         } else {