--- loncom/homework/optionresponse.pm 2003/10/27 20:04:34 1.94
+++ loncom/homework/optionresponse.pm 2004/01/14 22:08:22 1.98
@@ -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.98 2004/01/14 22:08:22 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -43,7 +43,8 @@ sub start_optionresponse {
%Apache::hint::option=();
if ($target eq 'edit') {
$result.=&Apache::edit::start_table($token).
- "
Multiple Option Response Question | Delete:".
+ " |
Multiple Option Response Question ".
+ &Apache::loncommon::help_open_topic('Option_Response_Problems')." | Delete:".
&Apache::edit::deletelist($target,$token)
." | ".
&Apache::edit::end_row().
@@ -184,8 +185,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 +319,8 @@ sub displayfoils {
} else {
$text=$value.': '.$text;
}
+ } else {
+ $text=''.$text;
}
$result.=$text."\n";
} elsif ($target eq 'tex') {
@@ -367,6 +370,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 +446,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/ |