version 1.137, 2008/06/14 16:34:54
|
version 1.138, 2008/09/06 21:39:15
|
Line 316 sub caparesponse_check_list {
|
Line 316 sub caparesponse_check_list {
|
$unit=~s/\s//; |
$unit=~s/\s//; |
foreach my $response (@$responses) { |
foreach my $response (@$responses) { |
foreach my $element (@$response) { |
foreach my $element (@$response) { |
$element =~ s/\s//g; |
if (($type eq 'float') || (($type eq '') && ($unit ne ''))) { |
|
$element =~ s/\s//g; |
|
} |
my $appendunit=$unit; |
my $appendunit=$unit; |
if ($unit=~/\%/) { |
if ($unit=~/\%/) { |
$element=$element/100; |
$element=$element/100; |