loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.789, 2022/06/11 14:20:42	version 1.790, 2022/06/11 14:38:28
Line 9611 END	Line 9611 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 9805 sub validate_uploaded_scantron_file {	Line 9805 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) {
	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];