XHTML compliance

This commit is contained in:
Wouter van Oijen 2006-05-19 22:09:36 +00:00
parent f413c029a2
commit c77f6f1957

View file

@ -92,7 +92,7 @@ Renders a select list form control.
sub toHtml {
my $self = shift;
my $multiple = ' multiple="1"' if ($self->get("multiple"));
my $multiple = ' multiple="multiple"' if ($self->get("multiple"));
my $output = '<select name="'.$self->get("name").'" size="'.$self->get("size").'" id="'.$self->get('id').'" '.$self->get("extras").$multiple.'>';
my %options;
tie %options, 'Tie::IxHash';