[ 1373319 ] archive
This commit is contained in:
JT Smith 2005-12-08 03:22:45 +00:00
parent 4115e696d3
commit 2e0c3dc48c
3 changed files with 2 additions and 1 deletions

View file

@ -378,6 +378,7 @@ context, it will return a newline "\n" separated scalar.
sub getValueFromPost {
my $self = shift;
my @formValues = $session{req}->param($self->{name});
return undef if ($formValues[0] eq "");
unless (@formValues) {
@formValues = (ref $self->{defaultValue} eq "ARRAY")
? @{$self->{defaultValue} }