--- loncom/homework/grades.pm 2004/02/25 00:31:57 1.178 +++ loncom/homework/grades.pm 2004/03/12 18:03:38 1.180 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.178 2004/02/25 00:31:57 albertel Exp $ +# $Id: grades.pm,v 1.180 2004/03/12 18:03:38 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1295,10 +1295,10 @@ sub gradeBox { my $ctr = 0; $result.=''."\n"; # display radio buttons in a nice table 10 across while ($ctr<=$wgt) { - $result.= '\n"; + ($score eq $ctr ? 'checked':'').' /> '.$ctr."\n"; $result.=(($ctr+1)%10 == 0 ? '' : ''); $ctr++; } @@ -1704,8 +1704,10 @@ KEYWORDS ($ENV{'form.command'} eq 'processGroup' && $counter == $total)) { $toGrade.=''.&show_grading_menu_form($symb,$url) } - $request = print($toGrade); + $request->print($toGrade); return; + } else { + $request->print('
'.$ctr."
'."\n"); } # essay grading message center