version 1.54, 2002/10/02 18:12:51
|
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 102 sub storesurvey {
|
Line 111 sub storesurvey {
|
|
|
sub grade_response { |
sub grade_response { |
my ($max,$randomize)=@_; |
my ($max,$randomize)=@_; |
|
#keep the random numbers the same must always call this |
|
my ($answer,@whichfoils)=&whichfoils($max,$randomize); |
if (!defined($ENV{'form.submitted'})) { return; } |
if (!defined($ENV{'form.submitted'})) { return; } |
my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']}; |
my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']}; |
if ( $response !~ /[0-9]+/) { return; } |
if ( $response !~ /[0-9]+/) { return; } |
my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
my ($answer,@whichfoils)=&whichfoils($max,$randomize); |
|
my %responsehash; |
my %responsehash; |
$responsehash{$whichfoils[$response]}=$response; |
$responsehash{$whichfoils[$response]}=$response; |
my $responsestr=&Apache::lonnet::hash2str(%responsehash); |
my $responsestr=&Apache::lonnet::hash2str(%responsehash); |
Line 359 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 369 sub displayfoils {
|
Line 381 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>'; |
if ($Apache::lonhomework::type eq 'exam') { |
|
$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++; |