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

first major round of EMS changes. much more to come late tonight.

Browse source
This commit is contained in:
Matthew Wilson 2006-04-07 00:02:45 +00:00
parent f3404c319a
commit 2c60283ba3
27 changed files with 5196 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Session/Form.pm
View file

@ -167,11 +167,13 @@ Gets a hash ref of all the params passed in to this class, and their values. Thi
sub paramsHashRef {
my $self = shift;
unless ($self->{_paramsHashRef}) {
my $hash;
my %hash;
tie %hash, "Tie::IxHash";
foreach ($self->param) {
$hash->{$_} = $self->process($_);
my @arr = $self->process($_);
$hash{$_} = (scalar(@arr) > 1)?\@arr:$arr[0];
}
$self->{_paramsHashRef} = $hash;
$self->{_paramsHashRef} = \%hash;
}
return $self->{_paramsHashRef};
}