--- loncom/lonnet/perl/lonnet.pm	2021/12/06 03:31:55	1.1474
+++ loncom/lonnet/perl/lonnet.pm	2021/12/19 02:45:48	1.1475
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1474 2021/12/06 03:31:55 raeburn Exp $
+# $Id: lonnet.pm,v 1.1475 2021/12/19 02:45:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4659,7 +4659,7 @@ sub bubblesheet_converter {
                     next if (($num == 1) && ($csvoptions{'hdr'} == 1));
                     $line =~ s{[\r\n]+$}{};
                     my %found;
-                    my @values = split(/,/,$line);
+                    my @values = split(/,/,$line,-1);
                     my ($qstart,$record);
                     for (my $i=0; $i<@values; $i++) {
                         if ((($qstart ne '') && ($i > $qstart)) ||