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

fixing the process method to handle array returns

Browse source
This commit is contained in:
JT Smith 2006-03-09 17:41:02 +00:00
parent 41f07713b0
commit 6874a5f2f9
1 changed files with 18 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -94,7 +94,7 @@ An alias for process()
sub get {
my $self = shift;
$self->process(@_);
return $self->process(@_);
}
#-------------------------------------------------------------------
@ -199,17 +199,25 @@ The default value for this variable. If the variable is undefined then the defau
sub process {
my ($self, $name, $type, $default) = @_;
my $value;
$type = ucfirst($type);
$type = "Text" if ($type eq "");
$value = $self->$type($name);
unless (defined $value) {
return $default;
return $self->param($name) if ($type eq "");
if (wantarray) {
my @values = $self->$type($name);
if (scalar(@values) < 1 && ref $default eq "ARRAY") {
return @{$default};
} else {
return @values;
}
} else {
my $value = $self->$type($name);
unless (defined $value) {
return $default;
}
if ($value =~ /^[\s]+$/) {
return undef;
}
return $value;
}
if ($value =~ /^[\s]+$/) {
return undef;
}
return $value;
}
#-------------------------------------------------------------------