loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.542, 2008/12/24 06:31:41	version 1.543, 2008/12/24 07:04:58
Line 7506 SCANTRONFORM	Line 7506 SCANTRONFORM
}	}

$completedstudents{$uname}={'line'=>$line};	$completedstudents{$uname}={'line'=>$line};
my $lastpos = $env{'form.scantron_maxbubble'}*$scantron_config{'Qlength'};
my $studentdata = substr($line,$scantron_config{'Qstart'}-1,$lastpos);
chomp($studentdata);
$studentdata =~ s/\r$//;
my $studentrecord = '';
my $counter = -1;
if ($env{'form.verifyrecord'}) {	if ($env{'form.verifyrecord'}) {
my $lastpos = $env{'form.scantron_maxbubble'}*$scantron_config{'Qlength'};	my $lastpos = $env{'form.scantron_maxbubble'}*$scantron_config{'Qlength'};
my $studentdata = substr($line,$scantron_config{'Qstart'}-1,$lastpos);	my $studentdata = substr($line,$scantron_config{'Qstart'}-1,$lastpos);
Line 7566 SCANTRONFORM	Line 7560 SCANTRONFORM
}	}
}	}
}	}
	if (&Apache::loncommon::connection_aborted($r)) { last; }
} continue {	} continue {
&Apache::lonxml::clear_problem_counter();	&Apache::lonxml::clear_problem_counter();
&Apache::lonnet::delenv('scantron\.');	&Apache::lonnet::delenv('scantron\.');