version 1.145, 2009/06/23 03:01:15
|
version 1.146, 2009/12/27 19:40:42
|
Line 326 sub caparesponse_check_list {
|
Line 326 sub caparesponse_check_list {
|
$element =~ s/\s//g; |
$element =~ s/\s//g; |
} |
} |
my $appendunit=$unit; |
my $appendunit=$unit; |
if (($unit=~/\%/) && ($answerunit ne '%')) { |
# if (($unit=~/\%/) && ($answerunit ne '%')) { |
$element=$element/100; |
# $element=$element/100; |
$appendunit=~s/\%//; |
# $appendunit=~s/\%//; |
} |
# } |
if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) { |
if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) { |
$appendunit=$answerunit; |
$appendunit=$answerunit; |
} |
} |