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

fixing array bug

Browse source
This commit is contained in:
JT Smith 2006-01-23 05:30:54 +00:00
parent 68b05cff5c
commit a99dea8129
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Session/Form.pm
View file

@ -133,7 +133,10 @@ sub param {
my $field = shift;
if ($field) {
if ($self->session->request) {
return $self->session->request->body($field) || $self->session->request->param($field);
my @data = $self->session->request->body($field);
return wantarray ? @data : $data[0] if (scalar(@data));
@data = $self->session->request->param($field);
return wantarray ? @data : $data[0];
} else {
return undef;
}