version 1.49, 2002/10/01 14:39:45
|
version 1.50, 2002/10/01 20:17:04
|
Line 354 sub displayfoils {
|
Line 354 sub displayfoils {
|
$temp++; |
$temp++; |
} else { |
} else { |
if ($displayoptionintex == 0) { |
if ($displayoptionintex == 0) { |
my $texoptionlist = $optionlist; |
my $texoptionlist = &optionlist_correction($optionlist); |
$texoptionlist =~ s/<option><\/option>/\\item \[\] The possible answers are:/; |
|
$texoptionlist =~ s/<option>/{\\bf /g; |
|
$texoptionlist =~ s/<option selected="on">/{\\bf /g; |
|
$texoptionlist =~ s/<\/option>/},/g; |
|
$texoptionlist =~ s/,$/\./g; |
|
$texoptionlist =~ s/>/\$>\$/g; |
|
$texoptionlist =~ s/</\$<\$/g; |
|
$texoptionlist =~ s/=/\$=\$/g; |
|
if ($Apache::response::foilgroup{$name.'.text'}=~m/\\item /) { |
if ($Apache::response::foilgroup{$name.'.text'}=~m/\\item /) { |
$result.= $texoptionlist.$Apache::response::foilgroup{$name.'.text'}; |
$result.= $texoptionlist.$Apache::response::foilgroup{$name.'.text'}; |
} else { |
} else { |
$result.= $texoptionlist.'\item '.$Apache::response::foilgroup{$name.'.text'}; |
$result.= $texoptionlist.'\item '.$Apache::response::foilgroup{$name.'.text'}; |
} |
} |
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
my $number_of_bubbles = $#opt + 1; |
$result.=&bubbles(\@alphabet,\@opt); |
$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 388 sub displayfoils {
|
Line 370 sub displayfoils {
|
} else { |
} else { |
$result.= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
$result.= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
} |
} |
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
my $number_of_bubbles = $#opt + 1; |
$result.=&bubbles(\@alphabet,\@opt); |
$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 '; |
|
} |
|
} |
} |
} |
} |
} |
} |
Line 414 sub displayfoils {
|
Line 386 sub displayfoils {
|
} |
} |
|
|
|
|
|
sub optionlist_correction { |
|
|
|
my $texoptionlist = shift; |
|
$texoptionlist =~ s/<option><\/option>/\\item \[\] The possible answers are:/; |
|
$texoptionlist =~ s/<option>/\{\\bf /g; |
|
$texoptionlist =~ s/<option selected="on">/\{\\bf /g; |
|
$texoptionlist =~ s/<\/option>/\},/g; |
|
$texoptionlist =~ s/,$/\./g; |
|
$texoptionlist =~ s/>/\$>\$/g; |
|
$texoptionlist =~ s/</\$<\$/g; |
|
$texoptionlist =~ s/=/\$=\$/g; |
|
return $texoptionlist; |
|
} |
|
|
|
|
|
sub bubbles { |
|
|
|
my ($ralphabit,$ropt) = @_; |
|
my @alphabet = @$ralphabit; |
|
my @opt = @$ropt; |
|
my $result=''; |
|
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 '; |
|
return $result; |
|
} |
|
|
|
|
sub start_conceptgroup { |
sub start_conceptgroup { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
$Apache::optionresponse::conceptgroup=1; |
$Apache::optionresponse::conceptgroup=1; |