|
version 1.1474, 2021/12/06 03:31:55
|
version 1.1475, 2021/12/19 02:45:48
|
|
Line 4659 sub bubblesheet_converter {
|
Line 4659 sub bubblesheet_converter {
|
| next if (($num == 1) && ($csvoptions{'hdr'} == 1)); |
next if (($num == 1) && ($csvoptions{'hdr'} == 1)); |
| $line =~ s{[\r\n]+$}{}; |
$line =~ s{[\r\n]+$}{}; |
| my %found; |
my %found; |
| my @values = split(/,/,$line); |
my @values = split(/,/,$line,-1); |
| my ($qstart,$record); |
my ($qstart,$record); |
| for (my $i=0; $i<@values; $i++) { |
for (my $i=0; $i<@values; $i++) { |
| if ((($qstart ne '') && ($i > $qstart)) || |
if ((($qstart ne '') && ($i > $qstart)) || |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl