bugfix, missing labels

This commit is contained in:
Colin Kuskie 2005-12-04 15:56:59 +00:00
parent 7dc63c1aa0
commit ea8415f902
7 changed files with 41 additions and 11 deletions

View file

@ -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