loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.505, 2008/02/04 13:46:35	version 1.507, 2008/02/04 23:30:05
Line 5524 sub scantron_validator_positional {	Line 5524 sub scantron_validator_positional {
# If the split only gives us one element.. the full length of the	# If the split only gives us one element.. the full length of the
# answer string, no bubbles are filled in:	# answer string, no bubbles are filled in:

	if ($answers_needed eq '') {
	return;
	}

if (length($array[0]) eq $$scantron_config{'Qlength'}*$answers_needed) {	if (length($array[0]) eq $$scantron_config{'Qlength'}*$answers_needed) {
for (my $ans=0; $ans<$answers_needed; $ans++ ) {	for (my $ans=0; $ans<$answers_needed; $ans++ ) {
$record->{"scantron.$ansnum.answer"}='';	$record->{"scantron.$ansnum.answer"}='';
Line 6762 sub questions_to_line_list {	Line 6766 sub questions_to_line_list {
$first = $first_bubble_line{$question-1} + 1;	$first = $first_bubble_line{$question-1} + 1;
$count = $bubble_lines_per_response{$question-1};	$count = $bubble_lines_per_response{$question-1};
}	}
my $last = $first+$count-1;	$last = $first+$count-1;
push(@lines, ($first..$last));	push(@lines, ($first..$last));
}	}
return join(',', @lines);	return join(',', @lines);