loncom/homework/grades.pm - diff - 1.596.2.12.2.60.2.1

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.596.2.12.2.60, 2022/02/09 23:50:00	version 1.596.2.12.2.60.2.1, 2023/01/16 19:27:43
Line 9343 END	Line 9343 END
my @lines = &Apache::lonnet::get_scantronformat_file();	my @lines = &Apache::lonnet::get_scantronformat_file();
my $count = 0;	my $count = 0;
foreach my $line (@lines) {	foreach my $line (@lines) {
next if ($line =~ /^#/);	next if (($line =~ /^\#/) \|\| ($line eq ''));
$singleline = $line;	$singleline = $line;
$count ++;	$count ++;
}	}
Line 9505 sub validate_uploaded_scantron_file {	Line 9505 sub validate_uploaded_scantron_file {
my %unique_formats;	my %unique_formats;
my @formatlines = &Apache::lonnet::get_scantronformat_file();	my @formatlines = &Apache::lonnet::get_scantronformat_file();
foreach my $line (@formatlines) {	foreach my $line (@formatlines) {
chomp($line);	next if (($line =~ /^\#/) \|\| ($line eq ''));
my @config = split(/:/,$line);	my @config = split(/:/,$line);
my $idstart = $config[5];	my $idstart = $config[5];
my $idlength = $config[6];	my $idlength = $config[6];