|
version 1.34, 2004/05/27 04:32:19
|
version 1.37, 2004/09/03 18:35:52
|
|
Line 198 sub grade_response {
|
Line 198 sub grade_response {
|
| my ($temp,$right,$wrong,$ignored)=(1,0,0,0); |
my ($temp,$right,$wrong,$ignored)=(1,0,0,0); |
| my @correctorder=&get_correct_order($tol,@whichfoils); |
my @correctorder=&get_correct_order($tol,@whichfoils); |
| foreach my $name (@whichfoils) { |
foreach my $name (@whichfoils) { |
| my $response = &Apache::response::getresponse($temp); |
# get response returns a=>0, when we want a=>1 |
| |
my $response = &Apache::response::getresponse($temp)+1; |
| my $value=shift(@correctorder); |
my $value=shift(@correctorder); |
| if ( $response =~ /[^\s]/) { |
if ( $response =~ /[^\s]/) { |
| $responsehash{$name}=$response; |
$responsehash{$name}=$response; |
|
Line 300 sub displayfoils {
|
Line 301 sub displayfoils {
|
| } else { |
} else { |
| if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
| $result.='\vskip 0 mm '.$text.' \vskip 0 mm '."\n"; |
$result.='\vskip 0 mm '.$text.' \vskip 0 mm '."\n"; |
| $result.='\vskip -1 mm\noindent\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]'.&Apache::optionresponse::bubbles(\@alp,\@whichopt).'\end{enumerate} \vskip -8 mm \strut '; |
$result.='\vskip -1 mm\noindent\begin{enumerate}\item[\textbf{'.$internal_counter.'}.]'.&Apache::optionresponse::bubbles(\@alp,\@whichopt,'rankresponse').'\end{enumerate} \vskip -8 mm \strut '; |
| $internal_counter++; |
$internal_counter++; |
| } else { |
} else { |
| $result.=' \vskip 0mm \framebox[5 mm][s]{\tiny\strut} '.$text."\n"; |
$result.=' \vskip 0mm \framebox[5 mm][s]{\tiny\strut} '.$text."\n"; |
![[BACK]](/icons/back.gif){kind=icon}
Return to rankresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework