diff --git a/lib/WebGUI/Form/Button.pm b/lib/WebGUI/Form/Button.pm
index 9d9b66597..fdf7d8540 100644
--- a/lib/WebGUI/Form/Button.pm
+++ b/lib/WebGUI/Form/Button.pm
@@ -61,6 +61,9 @@ sub definition {
defaultValue=>{
defaultValue=>$i18n->get(62)
},
+ type => {
+ defaultValue => 'button',
+ },
});
return $class->SUPER::definition($session, $definition);
}
@@ -89,7 +92,7 @@ Renders a button.
sub toHtml {
my $self = shift;
my $value = $self->fixQuotes($self->getOriginalValue);
- my $html = 'get("name").'" ' if ($self->get("name"));
$html .= 'id="'.$self->get('id').'" ' unless ($self->get('id') eq "_formId");
$html .= 'value="'.$value.'" '.$self->get("extras").' />';
diff --git a/lib/WebGUI/Form/Submit.pm b/lib/WebGUI/Form/Submit.pm
index 5064f8ced..ae0afc428 100644
--- a/lib/WebGUI/Form/Submit.pm
+++ b/lib/WebGUI/Form/Submit.pm
@@ -59,15 +59,8 @@ Renders a button.
sub toHtml {
my $self = shift;
- my $value = $self->fixQuotes($self->getOriginalValue);
- my $extras = $self->get("extras") || q|class="forwardButton"|;
- my $i18n = WebGUI::International->new($self->session);
- $self->{_params}{extras} ||= 'onclick="this.value=\''.$i18n->get(452).'\'"';
- my $html = 'get("name").'" ' if ($self->get("name"));
- $html .= 'id="'.$self->get('id').'" ' unless ($self->get('id') eq "_formId");
- $html .= 'value="'.$value.'" '.$extras.' />';
- return $html;
+ $self->{_params}{extras} ||= 'class="forwardButton" onclick="this.value=\''.$i18n->get(452).'\'"';
+ return $self->SUPER::toHtml;
}
1;