XHTML Bugfixes

This commit is contained in:
Wouter van Oijen 2005-10-16 20:20:31 +00:00
parent 3d65ae2158
commit 0a0195fd60
4 changed files with 17 additions and 7 deletions

View file

@ -89,7 +89,11 @@ Renders a button.
sub toHtml {
my $self = shift;
my $value = $self->fixQuotes($self->{value});
return '<input type="button" name="'.$self->{name}.'" value="'.$value.'" id="'.$self->{id}.'" '.$self->{extras}.' />';
my $html = '<input type="button" ';
$html .= 'name="'.$self->{name}.'" ' if ($self->{name});
$html .= 'id="'.$self->{id}.'" ' unless ($self->{id} eq "_formId");
$html .= 'value="'.$value.'" '.$self->{extras}.' />';
return $html;
}
1;