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

Replace new getValueFromPost with original. Checked that

Browse source 
Posts have all values (username, dateSubmitted, dateUpdated) defined.
This commit is contained in:
Colin Kuskie 2005-12-10 21:26:41 +00:00
parent 53a1475c4b
commit fadb77822e
3 changed files with 38 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Form/Control.pm
View file

@ -367,24 +367,18 @@ sub fixTags {
=head2 getValueFromPost ( )
Retrieves a value from a form GET or POST and returns it. If the value
comes back as undef, this method will return the defaultValue instead.
It also handles return data in list or scalar contexts. If a Form
field that supports multiple select requests its values in scalar
context, it will return a newline "\n" separated scalar.
Retrieves a value from a form GET or POST and returns it. If the value comes back as undef, this method will return the defaultValue instead.
=cut
sub getValueFromPost {
my $self = shift;
my @formValues = $session{req}->param($self->{name});
return undef if ($formValues[0] eq "");
unless (@formValues) {
@formValues = (ref $self->{defaultValue} eq "ARRAY")
? @{$self->{defaultValue} }
: ( $self->{defaultValue} );
my $formValue = $session{req}->param($self->{name});
if (defined $formValue) {
return $formValue;
} else {
return $self->{defaultValue};
}
return wantarray ? @formValues : join("\n",@formValues);
}
#-------------------------------------------------------------------