bugfix 810036

This commit is contained in:
Len Kranendonk 2003-11-13 21:06:36 +00:00
parent 5831547a35
commit f28ff56377

View file

@ -105,6 +105,10 @@ sub start {
}
$self->output("<$tag");
for (keys %$attr) {
if ($_ eq '/') {
$self->output('/');
next;
}
$self->output(" $_=\"");
my $val = $attr->{$_};
if ((lc($tag) eq "input" || lc($tag) eq "textarea" || lc($tag) eq "select")