version 1.6, 2003/03/18 21:26:33
|
version 1.7, 2003/03/19 18:36:37
|
Line 388 sub displayfoils {
|
Line 388 sub displayfoils {
|
my $lastopt=$lastresponse{$name}; |
my $lastopt=$lastresponse{$name}; |
my $last_letter=$name_letter_map{$lastopt}; |
my $last_letter=$name_letter_map{$lastopt}; |
my $optionlist = ''; |
my $optionlist = ''; |
if ($target ne 'tex') {$optionlist="<option></option>\n";} |
if ($target ne 'tex') { |
else {$optionlist='\framebox[5 mm][s]{\tiny\strut}';} |
$optionlist="<option></option>\n"; |
|
} else { |
|
if ($Apache::lonhomework::type ne 'exam') { |
|
$optionlist='\framebox[5 mm][s]{\tiny\strut}'; |
|
} else { |
|
$optionlist='\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]'; |
|
} |
|
} |
my $option; |
my $option; |
foreach $option (sort(keys(%letter_name_map))) { |
foreach $option (sort(keys(%letter_name_map))) { |
if ($option eq $last_letter) { |
if ($option eq $last_letter) { |
Line 414 sub displayfoils {
|
Line 421 sub displayfoils {
|
} else { |
} else { |
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
$question.=' '.$optionlist.$text."\n"; |
$question.=' '.$optionlist.$text."\n"; |
$question.='\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]'.&Apache::optionresponse::bubbles(\@Items,\@Items).'\end{enumerate}\strut '; |
$question.=&Apache::optionresponse::bubbles(\@Items,\@Items).'\end{enumerate} \vskip -7 mm \strut '; |
&Apache::lonxml::increment_counter(); |
&Apache::lonxml::increment_counter(); |
} else { |
} else { |
$question.=' \\\\ '.$optionlist.$text."\n"; |
$question.=' \\\\ '.$optionlist.$text."\n"; |