--- loncom/homework/radiobuttonresponse.pm 2004/08/24 23:32:13 1.90 +++ loncom/homework/radiobuttonresponse.pm 2004/08/26 22:08:30 1.91 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # mutliple choice style responses # -# $Id: radiobuttonresponse.pm,v 1.90 2004/08/24 23:32:13 albertel Exp $ +# $Id: radiobuttonresponse.pm,v 1.91 2004/08/26 22:08:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -251,7 +251,7 @@ sub displayallfoils { if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') { $result.="
\n"; + $result .= '>'.$Apache::response::foilgroup{$name.'.text'}.""; $temp++; } } @@ -421,7 +421,7 @@ sub displayfoils { $result.='Incorrect:'; } $result.=$Apache::response::foilgroup{$name.'.text'}; - if ($target eq 'web') { $result.="\n"; } + if ($target eq 'web') { $result.=""; } if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { if ($target ne 'tex') { $result.='';} else {$result.='}';} } @@ -456,7 +456,7 @@ sub displayfoils { if ($target ne 'tex') { $result.="\n"; + $result .= '>'.$Apache::response::foilgroup{$name.'.text'}.""; } else { if ($Apache::lonhomework::type eq 'exam') { $result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs