Fixed a bug where WG::Sess:Form->param would return duplicate params

This commit is contained in:
Martin Kamerbeek 2007-03-30 10:51:27 +00:00
parent 0c1a2e10b4
commit ba3eedf4a7
2 changed files with 6 additions and 4 deletions

View file

@ -143,14 +143,14 @@ sub param {
}
} else {
if ($self->session->request) {
my @params = ();
my %params = ();
foreach ($self->session->request->param) {
push(@params, $_);
$params{$_} = 1;
}
foreach ($self->session->request->body) {
push(@params, $_);
$params{$_} = 1;
}
return @params;
return keys %params;
} else {
return undef;
}