first round of changes for the new session system

This commit is contained in:
JT Smith 2005-12-31 21:54:06 +00:00
parent da95226072
commit d4b7f2ce59
128 changed files with 2442 additions and 1478 deletions

View file

@ -104,16 +104,16 @@ sub toHtml {
%options = $self->orderedHash;
foreach my $key (keys %options) {
my $checked = 0;
if ($self->{value} eq $key) {
if ($self->get("value") eq $key) {
$checked = 1;
}
$output .= WebGUI::Form::Radio->new({
name=>$self->{name},
name=>$self->get("name"),
value=>$key,
extras=>$self->{extras},
extras=>$self->get("extras"),
checked=>$checked
})->toHtml;
$output .= ${$self->{options}}{$key} . $alignment;
$output .= ${$self->get("options}"){$key} . $alignment;
}
return $output;
}