version 1.53, 2002/09/26 21:45:53
|
version 1.54, 2002/10/02 18:12:51
|
Line 359 sub displayfoils {
|
Line 359 sub displayfoils {
|
} |
} |
} |
} |
} else { |
} else { |
my $temp=0; |
my $temp=0; |
my $id=$Apache::inputtags::response['-1']; |
my $id=$Apache::inputtags::response['-1']; |
my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
Line 369 sub displayfoils {
|
Line 369 sub displayfoils {
|
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n"; |
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</input>\n"; |
|
$result .= '<table border="1"><tr><td>A: Correct</td><td>B: Incorrect</td></tr></table>'; |
} else { |
} else { |
$result .= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
$result .= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
|
if ($Apache::lonhomework::type eq 'exam') { |
|
$result.= '\vskip 2 mm \noindent \begin{tabular}{|lr|lr|}\hline '; |
|
$result.= 'A: & Correct & B: & Incorrect'; |
|
$result.='\\\\\hline\end{tabular}\vskip 0 mm '; |
|
} |
} |
} |
$temp++; |
$temp++; |
} |
} |