oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bug fixes from running t/FormGetName.t

Browse source
This commit is contained in:
Colin Kuskie 2006-01-15 05:18:11 +00:00
parent 3b06849a80
commit 6a9a63c4b0
26 changed files with 70 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Form/SelectBox.pm
View file

@ -113,7 +113,7 @@ Renders a select list form control.
sub toHtml {
my $self = shift;
my $output = '<select name="'.$self->get("name").'" size="'.$self->get("size").'" id="'.$self->{id}.'" '.$self->get("extras").'>';
my $output = '<select name="'.$self->get("name").'" size="'.$self->get("size").'" id="'.$self->get('id').'" '.$self->get("extras").'>';
my %options;
tie %options, 'Tie::IxHash';
%options = $self->orderedHash;
@ -123,7 +123,7 @@ sub toHtml {
if ($value eq $key) {
$output .= ' selected="selected"';
}
$output .= '>'.${$self->{options}}{$key}.'</option>';
$output .= '>'.$self->get('options')->{$key}.'</option>';
}
$output .= '</select>'."\n";
return $output;