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
|
|
@ -92,7 +92,7 @@ Renders an input tag of type password.
|
|||
|
||||
sub toHtml {
|
||||
my $self = shift;
|
||||
my $html = '<input type="password" name="'.$self->get("name").'" value="'.$self->fixQuotes($self->get("value")).'" size="'.$self->get("size").'" id="'.$self->{id}.'" ';
|
||||
my $html = '<input type="password" name="'.$self->get("name").'" value="'.$self->fixQuotes($self->get("value")).'" size="'.$self->get("size").'" id="'.$self->get('id').'" ';
|
||||
$html .= 'maxlength="'.$self->get("maxLength").'" ' if ($self->get("maxLength"));
|
||||
$html .= $self->get("extras").' />';
|
||||
return $html;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue