--- loncom/homework/grades.pm 2004/02/25 00:31:57 1.178 +++ loncom/homework/grades.pm 2004/03/04 14:09:47 1.179 @@ -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.179 2004/03/04 14:09:47 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++; }
'.$ctr."