use better api for form variables

This commit is contained in:
Graham Knop 2010-06-13 06:16:49 -05:00
parent 9c6b4201f7
commit cd68b13f61

View file

@ -122,15 +122,14 @@ sub param {
return undef unless $self->session->request; return undef unless $self->session->request;
my $field = shift; my $field = shift;
if ($field) { if ($field) {
my @data = $self->session->request->param($field); my @data = $self->session->request->parameters->get_all($field);
foreach my $value (@data) { foreach my $value (@data) {
$value = Encode::decode_utf8($value); $value = Encode::decode_utf8($value);
} }
return wantarray ? @data : $data[0]; return wantarray ? @data : $data[0];
} }
else { else {
my $paramRef = $self->session->request->param; return $self->session->request->parameters->keys;
return keys %{ $paramRef };
} }
} }