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

bunches o syntax fixes.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-14 21:06:52 +00:00
parent 742e63e389
commit 19bce8eaf6
14 changed files with 24 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Form/SelectList.pm
View file

@ -98,15 +98,15 @@ sub toHtml {
tie %options, 'Tie::IxHash';
%options = $self->orderedHash;
my @values = $self->getValues();
foreach my $key (keys %options) {
foreach my $key (keys %options) {
$output .= '<option value="'.$key.'"';
foreach my $item (@values) {
if ($item eq $key) {
$output .= ' selected="selected"';
}
}
$output .= '>'.${$self->get("options}"){$key}.'</option>';
}
$output .= '>'.$self->get("options")->{$key}.'</option>';
}
$output .= '</select>'."\n";
return $output;
}