--- loncom/homework/optionresponse.pm 2003/11/04 18:37:40 1.95
+++ 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.95 2003/11/04 18:37:40 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) {
@@ -445,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/