From 530c558fdd29084ebc58eca2c9b93a4424e50657 Mon Sep 17 00:00:00 2001
From: Len Kranendonk <len@webgui-svn>
Date: Thu, 20 Feb 2003 13:34:15 +0000
Subject: [PATCH] Fixed radioList set value bug.

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

diff --git a/lib/WebGUI/Form.pm b/lib/WebGUI/Form.pm
index 7df55fc90..904aaa1fa 100644
--- a/lib/WebGUI/Form.pm
+++ b/lib/WebGUI/Form.pm
@@ -1003,7 +1003,7 @@ The list of options for this list. Should be passed as a hash reference.
 
 =item value
 
-The default value for this form element. 
+The default value(s) for this form element. This should be passed as an array reference.
 
 =item vertical
 
@@ -1020,8 +1020,12 @@ If you want to add anything special to this form element like javascript actions
 =cut
 
 sub radioList {
-        my ($output, $key, $checked);
+        my ($output, $key, $checked, $item);
         foreach $key (keys %{$_[0]->{options}}) {
+		$checked = 0;
+		foreach $item (@{$_[0]->{value}}) {
+                        $checked = 1 if ($item eq $key);
+		}
 		$output .= radio({
 			name=>$_[0]->{name},
 			value=>$key,