version 1.55, 2002/10/14 20:33:57
|
version 1.56, 2002/10/17 14:40:23
|
Line 79 sub end_radiobuttonresponse {
|
Line 79 sub end_radiobuttonresponse {
|
|
|
%Apache::response::foilgroup=(); |
%Apache::response::foilgroup=(); |
sub start_foilgroup { |
sub start_foilgroup { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
my $result; |
%Apache::response::foilgroup=(); |
%Apache::response::foilgroup=(); |
$Apache::radiobuttonresponse::conceptgroup=0; |
$Apache::radiobuttonresponse::conceptgroup=0; |
&Apache::response::setrandomnumber(); |
&Apache::response::setrandomnumber(); |
return ''; |
if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') { |
|
$result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]'; |
|
$Apache::lonxml::counter++; |
|
my %moreenv; |
|
$moreenv{'form.counter'}=$Apache::lonxml::counter; |
|
&Apache::lonnet::appenv(%moreenv); |
|
} |
|
return $result; |
} |
} |
|
|
sub storesurvey { |
sub storesurvey { |
Line 360 sub displayfoils {
|
Line 369 sub displayfoils {
|
} |
} |
} |
} |
} else { |
} else { |
|
my @alphabet = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'); |
|
my $i = 0; |
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; |
Line 374 sub displayfoils {
|
Line 385 sub displayfoils {
|
$result .= '<table border="1"><tr><td>A: Correct</td><td>B: Incorrect</td></tr></table>'; |
$result .= '<table border="1"><tr><td>A: Correct</td><td>B: Incorrect</td></tr></table>'; |
} |
} |
} else { |
} else { |
$result .= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
|
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
$result.= '\vskip 2 mm \noindent \begin{tabular}{|lr|lr|}\hline '; |
$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; |
$result.= 'A: & Correct & B: & Incorrect'; |
$i++; |
$result.='\\\\\hline\end{tabular}\vskip 0 mm '; |
} else { |
|
$result .= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
} |
} |
} |
} |
$temp++; |
$temp++; |