bugfix, missing labels
This commit is contained in:
parent
7dc63c1aa0
commit
ea8415f902
7 changed files with 41 additions and 11 deletions
|
|
@ -91,8 +91,8 @@ method.
|
|||
=cut
|
||||
|
||||
sub correctValues {
|
||||
my ($self, $value) = @_;
|
||||
return unless defined $value;
|
||||
my ($self) = @_;
|
||||
return unless defined $self->{value};
|
||||
my @defaultValues;
|
||||
foreach (split(/\n/, $self->{value})) {
|
||||
s/\s+$//; # remove trailing spaces
|
||||
|
|
@ -185,7 +185,8 @@ sub displayValue {
|
|||
|
||||
=head2 getValues ( )
|
||||
|
||||
Handle returning an array regardless of whether the form values are a scalar or array.
|
||||
Safely handle returning values whether the stored data is scalar or an array
|
||||
ref.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue