bug fixes from running t/FormGetName.t
This commit is contained in:
parent
3b06849a80
commit
6a9a63c4b0
26 changed files with 70 additions and 47 deletions
|
|
@ -81,7 +81,7 @@ sub toHtml {
|
|||
my $value = $self->fixQuotes($self->get("value"));
|
||||
my $html = '<input type="button" ';
|
||||
$html .= 'name="'.$self->get("name").'" ' if ($self->get("name"));
|
||||
$html .= 'id="'.$self->{id}.'" ' unless ($self->{id} eq "_formId");
|
||||
$html .= 'id="'.$self->get('id').'" ' unless ($self->get('id') eq "_formId");
|
||||
$html .= 'value="'.$value.'" '.$self->get("extras").' />';
|
||||
return $html;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue