--- loncom/homework/radiobuttonresponse.pm 2002/10/25 19:02:38 1.58
+++ loncom/homework/radiobuttonresponse.pm 2002/11/07 15:34:14 1.60
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# mutliple choice style responses
#
-# $Id: radiobuttonresponse.pm,v 1.58 2002/10/25 19:02:38 albertel Exp $
+# $Id: radiobuttonresponse.pm,v 1.60 2002/11/07 15:34:14 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -350,10 +350,10 @@ sub displayfoils {
if ($target ne 'tex') {
$result.="
";
} else {
- $result.='\vskip 0 mm \item ';
+ $result.='\vskip 0 mm ';
}
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
- if ($target ne 'tex') { $result.='Correct:'; } else { $result.='Correct: ';}
+ if ($target ne 'tex') { $result.='Correct:'; } else { $result.='Correct: \textbf{';}
} else {
$result.='Incorrect:';
}
@@ -363,7 +363,7 @@ sub displayfoils {
$result.=$Apache::response::foilgroup{$name.'.text'};
}
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
- if ($target ne 'tex') { $result.='';}
+ if ($target ne 'tex') { $result.='';} else {$result.='}';}
}
}
} else {
@@ -387,7 +387,7 @@ sub displayfoils {
$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs
$i++;
} else {
- $result .= '\item '.$Apache::response::foilgroup{$name.'.text'};
+ $result .= '\vspace*{-2 mm}\item '.$Apache::response::foilgroup{$name.'.text'};
}
}
$temp++;