version 1.152, 2011/02/26 17:50:13
|
version 1.152.2.1, 2011/08/03 03:37:23
|
Line 341 sub caparesponse_check_list {
|
Line 341 sub caparesponse_check_list {
|
$appendunit='%'.$appendunit; |
$appendunit='%'.$appendunit; |
} |
} |
# Zero does not need a dimension |
# Zero does not need a dimension |
if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) { |
if (($element =~ /^[0\.]+$/) && ($unit!~/\w/) && ($answerunit=~/\w/)) { |
$appendunit=$answerunit; |
$appendunit=$answerunit; |
} |
} |
if ($appendunit ne '') { |
if ($appendunit ne '') { |