FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 05:16:45 +00:00
Code Issues Releases Wiki Activity

12_HProtocolGateway: dependency to Math::Round removed

Browse Source 
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 0f0a14bba5
commit 77661023f6
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/12_HProtocolGateway.pm
View File

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