version 1.172, 2005/06/27 21:52:48
|
version 1.174, 2005/07/11 18:35:23
|
Line 353 sub end_numericalresponse {
|
Line 353 sub end_numericalresponse {
|
#} |
#} |
} |
} |
my $response=$ans; |
my $response=$ans; |
if ($unit) { |
my $hideunit=&Apache::lonnet::EXT('resource.'.$partid.'_'. |
|
$id.'.turnoffunit'); |
|
if ($unit ne '' && |
|
! ($Apache::lonhomework::type eq 'exam' || |
|
lc($hideunit) eq "yes") ) { |
my $cleanunit=$unit; |
my $cleanunit=$unit; |
$cleanunit=~s/\$\,//g; |
$cleanunit=~s/\$\,//g; |
$response.=" $cleanunit"; |
$response.=" $cleanunit"; |
Line 389 sub end_numericalresponse {
|
Line 393 sub end_numericalresponse {
|
my ($ad,$msg)=&Apache::inputtags::finalizeawards($awards, |
my ($ad,$msg)=&Apache::inputtags::finalizeawards($awards, |
$msgs); |
$msgs); |
|
|
my $error=&mt('Computer\'s answer is incorrect ("[_1]"). It is likely that the tolerance range ("[_2]" to "[_3]") or significant figures ("[_4]" to "[_5]") needs to be adjusted',$response,$low,$high,$siglow,$sighigh); |
my $error; |
|
if ($siglow ne '' && $sighigh ne '') { |
|
$error=&mt('Computer\'s answer is incorrect ("[_1]"). It is likely that the tolerance range ("[_2]" to "[_3]") or significant figures ("[_4]" to "[_5]") need to be adjusted.',$response,$low,$high,$siglow,$sighigh); |
|
} else { |
|
$error=&mt('Computer\'s answer is incorrect ("[_1]"). It is likely that the tolerance range ("[_2]" to "[_3]") needs to be adjusted.',$response,$low,$high); |
|
} |
if ($ad ne 'EXACT_ANS' && $ad ne 'APPROX_ANS') { |
if ($ad ne 'EXACT_ANS' && $ad ne 'APPROX_ANS') { |
&Apache::lonxml::error($error); |
&Apache::lonxml::error($error); |
} else { |
} else { |