version 1.168, 2005/05/23 21:18:25
|
version 1.169, 2005/06/20 21:30:22
|
Line 352 sub end_numericalresponse {
|
Line 352 sub end_numericalresponse {
|
#} |
#} |
} |
} |
my $response=$ans; |
my $response=$ans; |
|
if ($unit) { |
|
my $cleanunit=$unit; |
|
$cleanunit=~s/\$\,//g; |
|
$response.=" $cleanunit"; |
|
} |
if ($target eq 'answer') { |
if ($target eq 'answer') { |
if ($high && $tag eq 'numericalresponse') { $ans.=' ['.$low.','.$high.']'; } |
if ($high && $tag eq 'numericalresponse') { $ans.=' ['.$low.','.$high.']'; } |
if (defined($sighigh) && $tag eq 'numericalresponse') { |
if (defined($sighigh) && $tag eq 'numericalresponse') { |