--- 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