--- loncom/homework/optionresponse.pm 2003/10/27 20:04:34 1.94
+++ loncom/homework/optionresponse.pm 2004/01/06 20:37:29 1.97
@@ -1,7 +1,7 @@
# LearningOnline Network with CAPA
# option list style responses
#
-# $Id: optionresponse.pm,v 1.94 2003/10/27 20:04:34 albertel Exp $
+# $Id: optionresponse.pm,v 1.97 2004/01/06 20:37:29 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -184,8 +184,8 @@ sub end_foilgroup {
if ($ENV{'form.submitted'} eq 'scantron') {
$response = $opt[$response];
}
- $responsehash{$name}=$response;
if ( $response =~ /[^\s]/) {
+ $responsehash{$name}=$response;
my $value=$Apache::response::foilgroup{$name.'.value'};
&Apache::lonxml::debug("submitted a $response for $value
\n");
if ($value eq $response) {
@@ -318,6 +318,8 @@ sub displayfoils {
} else {
$text=$value.': '.$text;
}
+ } else {
+ $text=''.$text;
}
$result.=$text."\n";
} elsif ($target eq 'tex') {
@@ -367,6 +369,8 @@ sub displayfoils {
my $text=$Apache::response::foilgroup{$name.'.text'};
if (!($text=~s||$optionlist|) && $Apache::lonhomework::type ne 'exam') {
$text=$optionlist.$text;
+ } else {
+ $text=''.$text;
}
$result.=$break.$text."\n";
if ($Apache::lonhomework::type eq 'exam') {
@@ -441,7 +445,7 @@ sub optionlist_correction {
$texoptionlist =~ s/>/\$>\$/g;
$texoptionlist =~ s/\$<\$/g;
$texoptionlist =~ s/=/\$=\$/g;
- $texoptionlist =~ s/\^(\d+)/\$$1\$<\/m>/g;
+ $texoptionlist =~ s/\^(\d+)/\$^{$1}\$/g;
} else {
$texoptionlist =~ s/