From cf23a67ae5e89b058e44a747bf6ca983f3203692 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 15 Jan 2006 23:33:47 +0000
Subject: [PATCH] fix bad accessor assignments

---
 lib/WebGUI/Form/CheckList.pm   | 2 +-
 lib/WebGUI/Form/ContentType.pm | 2 +-
 lib/WebGUI/Form/Group.pm       | 2 +-
 lib/WebGUI/Form/RadioList.pm   | 2 +-
 lib/WebGUI/Form/TimeZone.pm    | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/Form/CheckList.pm b/lib/WebGUI/Form/CheckList.pm
index 488f0d566..322b95fca 100644
--- a/lib/WebGUI/Form/CheckList.pm
+++ b/lib/WebGUI/Form/CheckList.pm
@@ -97,7 +97,7 @@ sub toHtml {
                                 $checked = 1;
                         }
                 }
-                $output .= WebGUI::Form::Checkbox->new({
+                $output .= WebGUI::Form::Checkbox->new($self->session,{
                         name=>$self->get('name'),
                         value=>$key,
                         extras=>$self->get('extras'),
diff --git a/lib/WebGUI/Form/ContentType.pm b/lib/WebGUI/Form/ContentType.pm
index a2ea5f84b..793ee0809 100644
--- a/lib/WebGUI/Form/ContentType.pm
+++ b/lib/WebGUI/Form/ContentType.pm
@@ -105,7 +105,7 @@ sub toHtml {
                         $types{html} = $i18n->get(1009);
                 }
         }
-	$self->get("options") = \%types,
+	$self->set("options", \%types);
 	return $self->SUPER::toHtml();
 }
 
diff --git a/lib/WebGUI/Form/Group.pm b/lib/WebGUI/Form/Group.pm
index 6afc40bdd..14f65ab47 100644
--- a/lib/WebGUI/Form/Group.pm
+++ b/lib/WebGUI/Form/Group.pm
@@ -125,7 +125,7 @@ Creates a series of hidden fields representing the data in the list.
 
 sub toHtmlAsHidden {
         my $self = shift;
-	$self->get("options") = $self->session->db->buildHashRef("select groupId,groupName from groups");
+	$self->set("options", $self->session->db->buildHashRef("select groupId,groupName from groups"));
         return $self->SUPER::toHtmlAsHidden();
 }
 
diff --git a/lib/WebGUI/Form/RadioList.pm b/lib/WebGUI/Form/RadioList.pm
index aa719a16f..311db7556 100644
--- a/lib/WebGUI/Form/RadioList.pm
+++ b/lib/WebGUI/Form/RadioList.pm
@@ -108,7 +108,7 @@ sub toHtml {
                 if ($self->get('value') eq $key) {
                         $checked = 1;
                 }
-                $output .= WebGUI::Form::Radio->new({
+                $output .= WebGUI::Form::Radio->new($self->session, {
                         name=>$self->get('name'),
                         value=>$key,
                         extras=>$self->get('extras'),
diff --git a/lib/WebGUI/Form/TimeZone.pm b/lib/WebGUI/Form/TimeZone.pm
index fe8b33ac6..26f346a5e 100644
--- a/lib/WebGUI/Form/TimeZone.pm
+++ b/lib/WebGUI/Form/TimeZone.pm
@@ -70,7 +70,7 @@ Renders a database connection picker control.
 
 sub toHtml {
 	my $self = shift;
-	$self->get("options") = $self->session->datetime->getTimeZones();
+	$self->set("options", $self->session->datetime->getTimeZones());
 	return $self->SUPER::toHtml();
 }