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

@ -60,9 +60,13 @@ Renders a button.
sub toHtml {
my $self = shift;
my $value = $self->fixQuotes($self->{value});
my $value = $self->fixQuotes($self->{value});
$self->{extras} ||= 'onclick="this.value=\''.WebGUI::International::get(452).'\'"';
return '<input id="'.$self->{id}.'" type="submit" name="'.$self->{name}.'" value="'.$value.'" '.$self->{extras}.' />';
my $html = '<input type="submit" ';
$html .= 'name="'.$self->{name}.'" ' if ($self->{name});
$html .= 'id="'.$self->{id}.'" ' unless ($self->{id} eq "_formId");
$html .= 'value="'.$value.'" '.$self->{extras}.' />';
return $html;
}
1;