--- loncom/homework/grades.pm 2004/02/24 23:22:24 1.177 +++ 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.177 2004/02/24 23:22:24 albertel Exp $ +# $Id: grades.pm,v 1.179 2004/03/04 14:09:47 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -531,7 +531,6 @@ sub verifyreceipt { if ($ENV{"course.$courseid.receiptalg"} eq 'receipt2') { $receiptparts=1; } my $parts=['0']; if ($receiptparts) { ($parts)=&response_type($url,$symb); } - $request->print("got Parts ".join(':',@$parts)); foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) { my ($uname,$udom)=split(/\:/); foreach my $part (@$parts) { @@ -1296,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."