From 5705131fcf168b194dda0f4a4ab4b1b5ed33c8ba Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 15 Jan 2006 17:26:36 +0000
Subject: [PATCH] more form fixes

---
 lib/WebGUI/Form/Combo.pm     | 1 +
 lib/WebGUI/Form/List.pm      | 8 +++++---
 lib/WebGUI/Form/TimeField.pm | 1 +
 lib/WebGUI/Form/YesNo.pm     | 2 ++
 4 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Form/Combo.pm b/lib/WebGUI/Form/Combo.pm
index 8c14cc559..549b26642 100644
--- a/lib/WebGUI/Form/Combo.pm
+++ b/lib/WebGUI/Form/Combo.pm
@@ -101,6 +101,7 @@ sub toHtml {
         $self->get("options")->{_new_} = $i18n->get(581).'-&gt;';
 	return $self->SUPER::toHtml
 		.WebGUI::Form::Text->new(
+			$self->session,
 			size=>$self->session->setting->get("textBoxSize")-5,
 			name=>$self->get("name")."_new",
 			id=>$self->get('id')."_new"
diff --git a/lib/WebGUI/Form/List.pm b/lib/WebGUI/Form/List.pm
index 175485c3e..60af27e51 100644
--- a/lib/WebGUI/Form/List.pm
+++ b/lib/WebGUI/Form/List.pm
@@ -16,6 +16,7 @@ package WebGUI::Form::List;
 
 use strict;
 use base 'WebGUI::Form::Control';
+use WebGUI::Form::Hidden;
 use WebGUI::International;
 
 =head1 NAME
@@ -102,7 +103,7 @@ sub correctValues {
 				push(@defaultValues, $_);
 		}
 	}
-	$self->get("value") = \@defaultValues;
+	$self->set("value", \@defaultValues);
 }
 
 
@@ -264,10 +265,11 @@ sub toHtmlAsHidden {
         foreach my $key (keys %options) {
                 foreach my $item (@values) {
                         if ($item eq $key) {
-                                $output .= WebGUI::Form::Hidden->(
+                                $output .= WebGUI::Form::Hidden->new(
+					$self->session,
                                         name=>$self->get("name"),
                                         value=>$key
-                                        );
+                                        )->toHtmlAsHidden;
                         }
                 }
         }
diff --git a/lib/WebGUI/Form/TimeField.pm b/lib/WebGUI/Form/TimeField.pm
index 3235cd01e..0b2c4cedd 100644
--- a/lib/WebGUI/Form/TimeField.pm
+++ b/lib/WebGUI/Form/TimeField.pm
@@ -130,6 +130,7 @@ Renders the field as a hidden field.
 sub toHtmlAsHidden {
 	my $self = shift;
 	return WebGUI::Form::Hidden->new(
+		$self->session,
 		name=>$self->get("name"),
 		value=>secondsToTime($self->get("value"))
 		)->toHtmlAsHidden;
diff --git a/lib/WebGUI/Form/YesNo.pm b/lib/WebGUI/Form/YesNo.pm
index d55bcdf58..5d7d24d30 100644
--- a/lib/WebGUI/Form/YesNo.pm
+++ b/lib/WebGUI/Form/YesNo.pm
@@ -110,6 +110,7 @@ sub toHtml {
                 $checkNo = 1;
         }
         my $output = WebGUI::Form::Radio->new(
+		$self->session,
                 checked=>$checkYes,
                 name=>$self->get("name"),
                 value=>1,
@@ -118,6 +119,7 @@ sub toHtml {
         $output .= $i18n->get(138);
         $output .= '&nbsp;&nbsp;&nbsp;';
         $output .= WebGUI::Form::Radio->new(
+		$self->session,
                 checked=>$checkNo,
                 name=>$self->get("name"),
                 value=>0,