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

fixed PseudoRequest to do param list correctly

Browse source
This commit is contained in:
Doug Bell 2009-05-15 18:02:49 +00:00
parent bfc140a365
commit 00b2709365
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/lib/WebGUI/PseudoRequest.pm
View file

@ -231,7 +231,10 @@ all form variables.
sub body { sub body {
my $self = shift; my $self = shift;
my $value = shift; my $value = shift;
return keys %{ $self->{body} } unless defined $value; if ( !defined $value ) {
return keys %{ $self->{body} } if wantarray;
return { %{ $self->{body} } };
}
if ($self->{body}->{$value}) { if ($self->{body}->{$value}) {
if (wantarray && ref $self->{body}->{$value} eq "ARRAY") { if (wantarray && ref $self->{body}->{$value} eq "ARRAY") {
return @{$self->{body}->{$value}}; return @{$self->{body}->{$value}};