--- loncom/homework/matchresponse.pm 2003/03/26 22:41:34 1.15 +++ loncom/homework/matchresponse.pm 2003/03/26 22:59:09 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Full matching style response # -# $Id: matchresponse.pm,v 1.15 2003/03/26 22:41:34 albertel Exp $ +# $Id: matchresponse.pm,v 1.16 2003/03/26 22:59:09 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,8 +33,6 @@ use HTML::Entities(); use Math::Random(); use Apache::optionresponse; -my $flag_for_exam_printing = 1; - BEGIN { &Apache::lonxml::register('Apache::matchresponse',('matchresponse')); } @@ -421,8 +419,8 @@ sub displayfoils { if ($Apache::lonhomework::type eq 'exam') { $question.=' '.$optionlist.$text."\n"; my @emptyItems = (); - 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(\@used_letters,\@empthItems).'}\end{enumerate}} \vskip -10 mm \strut '; + for (my $i=0;$i<=$#used_letters;$i++) {push @emptyItems, ' ';} + $question.='\vskip -2 mm\parbox{\textwidth}{\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\parbox{\textwidth - 5 mm}{'.&Apache::optionresponse::bubbles(\@used_letters,\@emptyItems).'}\end{enumerate}} \vskip -10 mm \strut '; } else { $question.=' \\\\ '.$optionlist.$text."\n"; } @@ -620,7 +618,7 @@ sub end_foil { } else { push @{ $Apache::response::foilgroup{'names'} }, $name; $Apache::response::foilgroup{"$name.value"} = $value; - if ($Apache::lonhomework::type eq 'exam' and $flag_for_exam_printing) { + if ($Apache::lonhomework::type eq 'exam') { $Apache::response::foilgroup{"$name.text"} = '\vskip 5 mm $\triangleright$ '.$text; } else { if ($target eq 'tex') {