version 1.48, 2002/09/26 21:41:30
|
version 1.49, 2002/10/01 14:39:45
|
Line 305 sub displayfoils {
|
Line 305 sub displayfoils {
|
my $result; |
my $result; |
my $name; |
my $name; |
my $displayoptionintex=0; |
my $displayoptionintex=0; |
|
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 @whichopt = &whichfoils($max,$randomize); |
my @whichopt = &whichfoils($max,$randomize); |
my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
my $id=$Apache::inputtags::response[-1]; |
my $id=$Apache::inputtags::response[-1]; |
Line 341 sub displayfoils {
|
Line 343 sub displayfoils {
|
$result.="<br /><select name=\"HWVAL_$Apache::inputtags::response['-1']:$temp\">" |
$result.="<br /><select name=\"HWVAL_$Apache::inputtags::response['-1']:$temp\">" |
.$optionlist |
.$optionlist |
."</select>\n".$Apache::response::foilgroup{$name.'.text'}."\n"; |
."</select>\n".$Apache::response::foilgroup{$name.'.text'}."\n"; |
|
if ($Apache::lonhomework::type eq 'exam') { |
|
my $number_of_bubbles = $#opt + 1; |
|
$result.= '<table border="1"><tr>'; |
|
for (my $ind=0;$ind<$number_of_bubbles;$ind++) { |
|
$result.='<td>'.$alphabet[$ind].': '.$opt[$ind].'</td>'; |
|
} |
|
$result.='</tr></table>'; |
|
} |
$temp++; |
$temp++; |
} else { |
} else { |
if ($displayoptionintex == 0) { |
if ($displayoptionintex == 0) { |
Line 358 sub displayfoils {
|
Line 368 sub displayfoils {
|
} else { |
} else { |
$result.= $texoptionlist.'\item '.$Apache::response::foilgroup{$name.'.text'}; |
$result.= $texoptionlist.'\item '.$Apache::response::foilgroup{$name.'.text'}; |
} |
} |
|
if ($Apache::lonhomework::type eq 'exam') { |
|
my $number_of_bubbles = $#opt + 1; |
|
$result.= '\vskip 2 mm \noindent \begin{tabular}{|'; |
|
for (my $ind=0;$ind<$number_of_bubbles;$ind++) { |
|
$result.='lr|'; |
|
} |
|
$result.='}\hline '; |
|
for (my $ind=0;$ind<$number_of_bubbles;$ind++) { |
|
$result.=' '.$alphabet[$ind].': & '.$opt[$ind].' '; |
|
if ($ind != $number_of_bubbles - 1) {$result.=' & ';} |
|
} |
|
$result.='\\\\\hline\end{tabular}\vskip 0 mm '; |
|
} |
$displayoptionintex=1; |
$displayoptionintex=1; |
} else { |
} else { |
if ($Apache::response::foilgroup{$name.'.text'}=~m/\\item /) { |
if ($Apache::response::foilgroup{$name.'.text'}=~m/\\item /) { |
Line 365 sub displayfoils {
|
Line 388 sub displayfoils {
|
} else { |
} else { |
$result.= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
$result.= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
} |
} |
|
if ($Apache::lonhomework::type eq 'exam') { |
|
my $number_of_bubbles = $#opt + 1; |
|
$result.= '\vskip 2 mm \noindent \begin{tabular}{|'; |
|
for (my $ind=0;$ind<$number_of_bubbles;$ind++) { |
|
$result.='lr|'; |
|
} |
|
$result.='}\hline '; |
|
for (my $ind=0;$ind<$number_of_bubbles;$ind++) { |
|
$result.=' '.$alphabet[$ind].': & '.$opt[$ind].' '; |
|
if ($ind != $number_of_bubbles - 1) {$result.=' & ';} |
|
} |
|
$result.='\\\\\hline\end{tabular}\vskip 0 mm '; |
|
} |
} |
} |
} |
} |
} |
} |