loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.497, 2007/11/21 12:16:42	version 1.499, 2007/12/05 18:40:59
Line 6672 sub prompt_for_corrections {	Line 6672 sub prompt_for_corrections {
my $current_line = $first_bubble_line{$question-1} + 1 ;	my $current_line = $first_bubble_line{$question-1} + 1 ;

if ($lines > 1) {	if ($lines > 1) {
$r->print("The group of bubble lines below responds to a single question. ");	$r->print(&mt("The group of bubble lines below responds to a single question. Select at most one bubble in a single line and select 'No Bubble' in all the other lines. ")."<br />");
$r->print("Select at most one bubble in a single line and select 'No Bubble' ");
$r->print("in all the other lines. <br />");
}	}
for (my $i =0; $i < $lines; $i++) {	for (my $i =0; $i < $lines; $i++) {
my $selected = $$scan_record{"scantron.$current_line.answer"};	my $selected = $$scan_record{"scantron.$current_line.answer"};
Line 7678 GRADINGMENUJS	Line 7676 GRADINGMENUJS
</div>	</div>
</div>	</div>
</form>';	</form>';
	$result .= &show_grading_menu_form($symb);
return $result;	return $result;
}	}