|
version 1.235, 2008/09/23 19:15:57
|
version 1.236, 2009/01/15 18:31:23
|
|
Line 752 sub end_numericalresponse {
|
Line 752 sub end_numericalresponse {
|
| if ($ad ne 'EXACT_ANS' && $ad ne 'APPROX_ANS') { |
if ($ad ne 'EXACT_ANS' && $ad ne 'APPROX_ANS') { |
| my $error; |
my $error; |
| if ($tag eq 'formularesponse') { |
if ($tag eq 'formularesponse') { |
| $error=&mt('Computer\'s answer is incorrect ("[_1]").',join(', ',@$response)); |
$error=&mt("Computer's answer is incorrect ([_1]).",'"'.join(', ',@$response).'"'); |
| } else { |
} else { |
| # answer failed check if it is sig figs that is failing |
# answer failed check if it is sig figs that is failing |
| my ($ad,$msg)=&check_submission($response,$partid,$id, |
my ($ad,$msg)=&check_submission($response,$partid,$id, |
| $tag,$parstack, |
$tag,$parstack, |
| $safeeval,1); |
$safeeval,1); |
| |
$error=&mt("Computer's answer is incorrect ([_1]).",'"'.join(', ',@$response).'"').' '; |
| if ($sigline ne '') { |
if ($sigline ne '') { |
| $error=&mt('Computer\'s answer is incorrect ("[_1]"). It is likely that the tolerance range [_2] or significant figures [_3] need to be adjusted.',join(', ',@$response),$tolline,$sigline); |
$error.=&mt('It is likely that the tolerance range [_1] or significant figures [_2] need to be adjusted.',$tolline,$sigline); |
| } else { |
} else { |
| $error=&mt('Computer\'s answer is incorrect ("[_1]"). It is likely that the tolerance range [_2] needs to be adjusted.',join(', ',@$response),$tolline); |
$error.=&mt('It is likely that the tolerance range [_1] needs to be adjusted.',$tolline); |
| } |
} |
| } |
} |
| if ($ad ne 'EXACT_ANS' && $ad ne 'APPROX_ANS') { |
if ($ad ne 'EXACT_ANS' && $ad ne 'APPROX_ANS') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to caparesponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework / caparesponse