loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.493, 2007/11/16 08:50:39	version 1.494, 2007/11/16 08:52:15
Line 5403 sub scantron_parse_scanline {	Line 5403 sub scantron_parse_scanline {
$questions =~ s/\r$//; # Get rid of trailing \r too (MAC or Win uploads).	$questions =~ s/\r$//; # Get rid of trailing \r too (MAC or Win uploads).
while (length($questions)) {	while (length($questions)) {
my $answers_needed = $bubble_lines_per_response{$questnum};	my $answers_needed = $bubble_lines_per_response{$questnum};
my $answer_length = $$scantron_config{'Qlength'} * $answers_needed;	my $answer_length = ($$scantron_config{'Qlength'} * $answers_needed)
	\|\| 1;

$questnum++;	$questnum++;
my $currentquest = substr($questions,0,$answer_length);	my $currentquest = substr($questions,0,$answer_length);