12_HProtocolGateway: dependency to Math::Round removed

git-svn-id: https://svn.fhem.de/fhem/trunk@17840 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
eisler
2018-11-25 12:48:42 +00:00
parent a22eebbd11
commit 8ef0b1f072

View File

@@ -28,7 +28,6 @@ package main;
use strict;
use warnings;
use DevIo;
use Math::Round qw/round/;
my @tankList = undef;
@@ -222,7 +221,7 @@ sub HProtocolGateway_ParseMessage($$) {
if ($sign eq "-") { $probe_offset = int($probe_offset) * -1 };
my $volume_15C = $volume * (1 + 0.00084 * ( 15 - $temperature ));
$volume_15C = Math::Round::nearest('0.01',$volume_15C);
$volume_15C = sprintf("%.2f", $volume_15C);
# Update all received readings
HProtocolGateway_UpdateTankDevice($hash, $tankHash->{NAME}, "ullage", $ullage);
@@ -370,7 +369,7 @@ sub HProtocolGateway_Tank($$$) {
foreach my $level (sort keys %TankChartHash) {
if ($level ne "level" && $filllevel <= $level) {
$volume = $volume1 + ($TankChartHash{$level} - $volume1) / ($level - $level1) * ($filllevel-$level1);
$volume = Math::Round::nearest('0.01',$volume);
$volume = sprintf("%.2f", $volume);
last;
}
$level1 = $level;