From dd6f6ef461e7ee54504a4509c4f288318c27370a Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Mon, 24 Mar 2008 09:43:35 +0000
Subject: [PATCH] displayValue for list should show values instead of keys

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

diff --git a/lib/WebGUI/Form/List.pm b/lib/WebGUI/Form/List.pm
index 923506057..86d789040 100644
--- a/lib/WebGUI/Form/List.pm
+++ b/lib/WebGUI/Form/List.pm
@@ -189,7 +189,7 @@ Return all the options
 
 sub displayValue {
 	my ($self) = @_;
-	return join ", ", $self->getValues();
+    return return join ", ", map { $self->get('options')->{$_} } $self->getValues();
 }
 
 #-------------------------------------------------------------------