diff --git a/lib/WebGUI/Form/DynamicField.pm b/lib/WebGUI/Form/DynamicField.pm index b6f9f76e7..10070830f 100644 --- a/lib/WebGUI/Form/DynamicField.pm +++ b/lib/WebGUI/Form/DynamicField.pm @@ -114,7 +114,7 @@ sub new { ##List type forms. Historically, dynamically created forms have always ##used the default size. if ($formObj->isa('WebGUI::Form::List')) { - $formObj->correctValues(); + $formObj->correctValues($param->{value}); $formObj->correctOptions($param->{possibleValues}); } elsif ($size) { diff --git a/lib/WebGUI/Form/List.pm b/lib/WebGUI/Form/List.pm index 88d9a4eea..a1a04acb0 100644 --- a/lib/WebGUI/Form/List.pm +++ b/lib/WebGUI/Form/List.pm @@ -91,10 +91,10 @@ method. =cut sub correctValues { - my ($self) = @_; - return unless defined $self->{value}; + my ($self, $value) = @_; + return unless defined $value; my @defaultValues; - foreach (split(/\n/, $self->{value})) { + foreach (split(/\n/, $value)) { s/\s+$//; # remove trailing spaces push(@defaultValues, $_); }