diff --git a/lib/WebGUI/Session/Form.pm b/lib/WebGUI/Session/Form.pm index f8b78ac91..4e357a798 100644 --- a/lib/WebGUI/Session/Form.pm +++ b/lib/WebGUI/Session/Form.pm @@ -105,22 +105,17 @@ sub param { my $field = shift; if ($field) { if ($self->session->request) { - my @data = $self->session->request->body($field); - return wantarray ? @data : $data[0] if (scalar(@data)); - @data = $self->session->request->param($field); + my @data = $self->session->request->param($field); return wantarray ? @data : $data[0]; } else { return undef; } } else { if ($self->session->request) { - my %params = (); + my %params; foreach ($self->session->request->param) { $params{$_} = 1; } - foreach ($self->session->request->body) { - $params{$_} = 1; - } return keys %params; } else { return undef;