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

added param() method to $session->form

Browse source
This commit is contained in:
JT Smith 2006-01-23 05:23:21 +00:00
parent f64ec77d8a
commit 68b05cff5c
2 changed files with 40 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -116,11 +116,48 @@ sub new {
}
#-------------------------------------------------------------------
=head2 param ( field )
Retrieves a form field post from the HTTP request.
=head3 field
The name of the field to retrieve.
=cut
sub param {
my $self = shift;
my $field = shift;
if ($field) {
if ($self->session->request) {
return $self->session->request->body($field) || $self->session->request->param($field);
} else {
return undef;
}
} else {
if ($self->session->request) {
my @params = ();
foreach ($self->session->request->param) {
push(@params, $_);
}
foreach ($self->session->request->body) {
push(@params, $_);
}
return @params;
} else {
return undef;
}
}
}
#-------------------------------------------------------------------
=head2 paramsHashRef ( )
Gets a hash ref of all the params passed in, and their values.
Gets a hash ref of all the params passed in to this class, and their values. This should not be confused with the param() method.
=cut