oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

merging form pollution fix

Browse source
This commit is contained in:
JT Smith 2008-04-16 21:55:38 +00:00
parent c1cab2299c
commit 11e4f6ea7e
78 changed files with 2666 additions and 1463 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Form/Button.pm
View file

@ -58,21 +58,28 @@ sub definition {
my $definition = shift || [];
my $i18n = WebGUI::International->new($session,"WebGUI");
push(@{$definition}, {
formName=>{
defaultValue=>$i18n->get('button')
},
defaultValue=>{
defaultValue=>$i18n->get(62)
},
dbDataType => {
defaultValue => "VARCHAR(255)",
},
});
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------
=head2 getName ( session )
Returns the human readable name of this control.
=cut
sub getName {
my ($self, $session) = @_;
return WebGUI::International->new($session, 'WebGUI')->get('button');
}
#-------------------------------------------------------------------
=head2 toHtml ( )
Renders a button.
@ -81,7 +88,7 @@ Renders a button.
sub toHtml {
my $self = shift;
my $value = $self->fixQuotes($self->get("value"));
my $value = $self->fixQuotes($self->getDefaultValue);
my $html = '<input type="button" ';
$html .= 'name="'.$self->get("name").'" ' if ($self->get("name"));
$html .= 'id="'.$self->get('id').'" ' unless ($self->get('id') eq "_formId");