fix bad accessor assignments

This commit is contained in:
Colin Kuskie 2006-01-15 23:33:47 +00:00
parent 00d97170f9
commit cf23a67ae5
5 changed files with 5 additions and 5 deletions

View file

@ -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'),

View file

@ -105,7 +105,7 @@ sub toHtml {
$types{html} = $i18n->get(1009);
}
}
$self->get("options") = \%types,
$self->set("options", \%types);
return $self->SUPER::toHtml();
}

View file

@ -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();
}

View file

@ -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'),

View file

@ -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();
}