oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cleaning up function in List form type

Browse source
This commit is contained in:
Graham Knop 2009-01-28 16:39:32 +00:00
parent c7dac4aa42
commit 744751a86f
1 changed files with 5 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Form/List.pm
View file

@ -268,27 +268,16 @@ sub getOriginalValue {
@values = @{$value}; @values = @{$value};
} }
else { else {
$value =~ s/\r//g; $value =~ s/\r//g;
@values = split "\n", $value; @values = split "\n", $value;
} }
} }
} }
if(@values){ if (@values) {
return wantarray ? @values : join("\n",@values); return wantarray ? @values : join("\n",@values);
} }
foreach my $value ($self->getDefaultValue()) { return $self->getDefaultValue;
if (scalar @values < 1 && defined $value) {
if (ref $value eq "ARRAY") {
@values = @{$value};
}
else {
$value =~ s/\r//g;
@values = split "\n", $value;
}
}
}
return wantarray ? @values : join("\n",@values);
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------