--- loncom/homework/matchresponse.pm 2016/01/22 22:42:51 1.93 +++ loncom/homework/matchresponse.pm 2025/02/21 20:55:17 1.97 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Full matching style response # -# $Id: matchresponse.pm,v 1.93 2016/01/22 22:42:51 damieng Exp $ +# $Id: matchresponse.pm,v 1.97 2025/02/21 20:55:17 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -170,7 +170,6 @@ sub end_itemgroup { undef($columns); } if ($target eq 'web') { - my $table=''; # extra space to match what latex does. if ((!$columns) || ($columns < 0)) { if ($direction eq 'horizontal') { @@ -201,7 +200,7 @@ sub end_itemgroup { if ($i % $columns == 0) { $table.=''; } - $table.= ''; + $table.= ''; if ($columns > 1) { $table .= ''; } @@ -685,7 +684,7 @@ sub displayfoils { my $last_letter=$name_letter_map{$lastopt}; my $optionlist = ''; if ($target ne 'tex') { - $optionlist="\n"; + $optionlist="\n"; } else { if ($Apache::lonhomework::type ne 'exam') { if($env{'form.pdfFormFields'} eq 'yes' @@ -702,7 +701,7 @@ sub displayfoils { foreach $option (@used_letters) { if ($option eq $last_letter) { if ($target ne 'tex') { - $optionlist.="\n"; + $optionlist.="\n"; } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes' && $Apache::inputtags::status['-1'] eq 'CAN_ANSWER' && $Apache::lonhomework::type ne 'exam') { @@ -710,7 +709,7 @@ sub displayfoils { } } else { if ($target ne 'tex') { - $optionlist.="\n"; + $optionlist.="\n"; } elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes' && $Apache::inputtags::status['-1'] eq 'CAN_ANSWER' && $Apache::lonhomework::type ne 'exam') { @@ -719,7 +718,7 @@ sub displayfoils { } } if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') { - $optionlist='\n"; @@ -746,7 +745,7 @@ sub displayfoils { } if ($target ne 'tex') { if ($Apache::lonhomework::type ne 'exam') { - $question.="
\n".$optionlist.$text; + $question.='
'."\n".$optionlist.$text.'
'; } else { $question.="
\n".$text; } @@ -754,7 +753,7 @@ sub displayfoils { my @blank; $question.=&Apache::optionresponse::webbubbles(\@used_letters,\@blank,$temp,$last_letter); } - } else { + } else { # Note that if left or right positioned, we must # confine the bubbles to righttabsize: #
'.$label.''.$item.''.$label.''.$item.'