version 1.182, 2005/12/01 18:46:48
|
version 1.183, 2005/12/01 22:30:55
|
Line 517 sub end_numericalresponse {
|
Line 517 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]").'); |
$error=&mt('Computer\'s answer is incorrect ("[_1]").',$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, |