version 1.61, 2002/11/14 20:30:34
|
version 1.64, 2003/04/02 15:09:00
|
Line 278 sub whichfoils {
|
Line 278 sub whichfoils {
|
#pick a true statement |
#pick a true statement |
my $whichtrue = int(&Math::Random::random_uniform() * ($#truelist+1)); |
my $whichtrue = int(&Math::Random::random_uniform() * ($#truelist+1)); |
&Apache::lonxml::debug("Max is $max, From $#truelist elms, picking $whichtrue"); |
&Apache::lonxml::debug("Max is $max, From $#truelist elms, picking $whichtrue"); |
my $numinserted; |
|
my (@toplist, @bottomlist); |
my (@toplist, @bottomlist); |
my $topcount=0; |
my $topcount=0; |
# assign everyone to either toplist/bottomlist or whichfalse |
# assign everyone to either toplist/bottomlist or whichfalse |
# which false is randomized, toplist bottomlist are in order |
# which false is randomized, toplist bottomlist are in order |
while ((($numinserted) < $max-1) && ($#falselist > -1)) { |
while ((($#whichfalse) < $max-2) && ($#falselist > -1)) { |
&Apache::lonxml::debug("Have $#whichfalse max is $max"); |
&Apache::lonxml::debug("Have $#whichfalse max is $max"); |
my $afalse=int(&Math::Random::random_uniform() * ($#falselist+1)); |
my $afalse=int(&Math::Random::random_uniform() * ($#falselist+1)); |
&Apache::lonxml::debug("From $#falselist elms, picking $afalse"); |
&Apache::lonxml::debug("From $#falselist elms, picking $afalse"); |
Line 345 sub displayfoils {
|
Line 344 sub displayfoils {
|
my $result; |
my $result; |
|
|
my ($answer,@whichfoils)=&whichfoils($max,$randomize); |
my ($answer,@whichfoils)=&whichfoils($max,$randomize); |
if ($Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"} =~ /^correct/ || ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER')) { |
my $part=$Apache::inputtags::part; |
|
my $solved=$Apache::lonhomework::history{"resource.$part.solved"}; |
|
my $status=$Apache::inputtags::status[-1]; |
|
if ( ($target ne 'tex') && |
|
(($solved =~ /^correct/) || ($status eq 'SHOW_ANSWER')) ) { |
foreach my $name (@whichfoils) { |
foreach my $name (@whichfoils) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$result.="<br />"; |
$result.="<br />"; |
Line 367 sub displayfoils {
|
Line 370 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 @alphabet = ('A'..'Z'); |
my $i = 0; |
my $i = 0; |
my $temp=0; |
my $temp=0; |
my $id=$Apache::inputtags::response['-1']; |
my $id=$Apache::inputtags::response['-1']; |
Line 376 sub displayfoils {
|
Line 379 sub displayfoils {
|
my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
foreach my $name (@whichfoils) { |
foreach my $name (@whichfoils) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$temp\" "; |
my $ValueForInput; |
|
if ($Apache::lonhomework::type ne 'exam') {$ValueForInput=$temp;} else {$ValueForInput=$alphabet[$temp];} |
|
$result.="<br /><input type=\"radio\" name=\"HWVAL$Apache::inputtags::response['-1']\" value=\"$ValueForInput\" "; |
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"; |
if ($Apache::lonhomework::type eq 'exam') { |
|
$result .= '<table border="1"><tr><td>A: Correct</td><td>B: Incorrect</td></tr></table>'; |
|
} |
|
} else { |
} else { |
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |