version 1.9, 2003/03/19 19:20:44
|
version 1.13, 2003/03/25 22:21:20
|
Line 148 sub end_itemgroup {
|
Line 148 sub end_itemgroup {
|
my $table=' \\\\\\\\ \begin{tabular}{ll} '; |
my $table=' \\\\\\\\ \begin{tabular}{ll} '; |
my $i=0; |
my $i=0; |
foreach my $name (@names) { |
foreach my $name (@names) { |
|
$Apache::response::itemgroup{$name.'.text'}=~s/\$\$/\$/g; |
$table.=' '.$alphabet[$i].' & '. |
$table.=' '.$alphabet[$i].' & '. |
$Apache::response::itemgroup{$name.'.text'}. |
$Apache::response::itemgroup{$name.'.text'}. |
' \\\\ '; |
' \\\\ '; |
Line 395 sub displayfoils {
|
Line 396 sub displayfoils {
|
} else { |
} else { |
if ($Apache::lonhomework::type ne 'exam') { |
if ($Apache::lonhomework::type ne 'exam') { |
$optionlist='\framebox[5 mm][s]{\tiny\strut}'; |
$optionlist='\framebox[5 mm][s]{\tiny\strut}'; |
} else { |
|
$optionlist='\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]'; |
|
} |
} |
} |
} |
my $option; |
my $option; |
Line 411 sub displayfoils {
|
Line 410 sub displayfoils {
|
$optionlist='<select name="HWVAL_'. |
$optionlist='<select name="HWVAL_'. |
$Apache::inputtags::response[-1].':'.$temp.'">'. |
$Apache::inputtags::response[-1].':'.$temp.'">'. |
$optionlist."</select>\n"; |
$optionlist."</select>\n"; |
} else { |
|
$optionlist=$optionlist; |
|
} |
} |
my $text=$Apache::response::foilgroup{$name.'.text'}; |
my $text=$Apache::response::foilgroup{$name.'.text'}; |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
Line 423 sub displayfoils {
|
Line 420 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.=&Apache::optionresponse::bubbles(\@Items_letter,\@Items).'\end{enumerate} \vskip -7 mm \strut '; |
my @emptyItems = (); |
&Apache::lonxml::increment_counter(); |
for (my $i=0;$i<=$#Items;$i++) {push @emptyItems, ' ';} |
|
$question.='\vskip -2 mm\parbox{\textwidth}{\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\parbox{\textwidth - 5 mm}{'.&Apache::optionresponse::bubbles(\@Items_letter,\@emptyItems).'}\end{enumerate}} \vskip -3 mm \strut '; |
} else { |
} else { |
$question.=' \\\\ '.$optionlist.$text."\n"; |
$question.=' \\\\ '.$optionlist.$text."\n"; |
} |
} |