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

fixed form processing of yes/no fields

Browse source
This commit is contained in:
JT Smith 2007-08-01 18:23:59 +00:00
parent fe734f2359
commit 9bcc48f123
1 changed files with 3 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Form/YesNo.pm
View file

@ -109,16 +109,9 @@ An optional value to process, instead of POST input. This should be in the form
sub getValueFromPost {
my $self = shift;
my $formValue;
if (@_) {
my $value = shift;
return '' unless length $value; # empty import value?
return ($value =~ /^y/i || $value eq '1') ? 1 : 0;
}
else {
return $self->SUPER::getValueFromPost;
}
my $value = shift;
$value = $self->SUPER::getValueFromPost unless (defined $value);
return ($value =~ /^y/i || $value eq '1') ? 1 : 0;
}
#-------------------------------------------------------------------