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