WebGUI::Text no longer removes trailing empty fields

This commit is contained in:
Doug Bell 2006-11-02 20:09:24 +00:00
parent 3ab139e6cc
commit 46055a5812
3 changed files with 33 additions and 9 deletions

View file

@ -97,7 +97,8 @@ sub splitCSV {
my $s = shift;
# Split on ,
my @array = split /,/, $s;
# Negative LIMIT so that empty trailing fields are preserved
my @array = split /,/, $s, -1;
for (my $i = 0; $i < @array; $i++) {
# Fix quoted strings being used to escape commas.