version 1.27, 2001/01/15 21:44:21
|
version 1.30, 2001/04/05 00:10:55
|
Line 44 sub end_caparesponse {
|
Line 44 sub end_caparesponse {
|
} |
} |
} |
} |
} |
} |
} else { |
} elsif ($target eq 'web') { |
#$result .= "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n"; |
#$result .= "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n"; |
} |
} |
#Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n"); |
#Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n"); |
Line 74 sub end_numericalresponse {
|
Line 74 sub end_numericalresponse {
|
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response; |
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response; |
&Apache::lonxml::debug("submitted a $response<br>\n"); |
&Apache::lonxml::debug("submitted a $response<br>\n"); |
&Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>"); |
&Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>"); |
|
$response =~ s/\\/\\\\/g; |
|
$response =~ s/\'/\\\'/g; |
|
&Apache::lonxml::debug("current $response"); |
my $expression="&caparesponse_check_list('".$response."','". |
my $expression="&caparesponse_check_list('".$response."','". |
$$parstack[$#$parstack]. |
$$parstack[$#$parstack]. |
';my $tol="'.$Apache::inputtags::params{'tol'}.'"'. |
';my $tol="'.$Apache::inputtags::params{'tol'}.'"'. |
Line 91 sub end_numericalresponse {
|
Line 94 sub end_numericalresponse {
|
} |
} |
} elsif ($target eq 'web') { |
} elsif ($target eq 'web') { |
my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"}; |
my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"}; |
if ($award =~ /^correct/) { |
my $status = $Apache::inputtags::status['-1']; |
|
if ($award =~ /^correct/ || $status eq "SHOW_ANSWER" ) { |
my $answervar=&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval); |
my $answervar=&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval); |
my (@answers)=&Apache::run::run("$answervar",$safeeval); |
my (@answers)=&Apache::run::run("$answervar",$safeeval); |
my $unit=&Apache::run::run("{$$parstack['-1'];".'return $unit}',$safeeval); |
my $unit=&Apache::run::run("{$$parstack['-1'];".'return $unit}',$safeeval); |