fix
[ 1373319 ] archive
This commit is contained in:
parent
4115e696d3
commit
2e0c3dc48c
3 changed files with 2 additions and 1 deletions
|
|
@ -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} }
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue