don't dual check for form parameters

This commit is contained in:
Graham Knop 2008-08-07 22:55:26 +00:00
parent 395a243d25
commit a01f5dce37

View file

@ -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;