From dc39aed9b757e8d08e48672e2840b393af1eeb1f Mon Sep 17 00:00:00 2001
From: loredo <loredo@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 20 Nov 2015 23:35:39 +0000
Subject: [PATCH] 50_HP1000.pm: mixed upper/lowercase readings

git-svn-id: https://svn.fhem.de/fhem/trunk@9947 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/50_HP1000.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/50_HP1000.pm b/fhem/FHEM/50_HP1000.pm
index 5904ab9ff..d9efb8ca9 100755
--- a/fhem/FHEM/50_HP1000.pm
+++ b/fhem/FHEM/50_HP1000.pm
@@ -32,7 +32,7 @@ use vars qw(%data);
 use HttpUtils;
 use Time::Local;
 use Data::Dumper;
-use 98_dewpoint;
+use FHEM::98_dewpoint;
 
 no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 
@@ -203,7 +203,7 @@ sub HP1000_CGI() {
       $p = "windGust" if ($p eq "windgust");
       $p = "windSpeed" if ($p eq "windspeed");
 
-      readingsBulkUpdate( $hash, lc($p), $v );
+      readingsBulkUpdate( $hash, $p, $v );
     }
 
     # calculated readings
@@ -211,19 +211,19 @@ sub HP1000_CGI() {
 
     # dewpointIndoor
     if (defined($webArgs->{intemp}) && defined($webArgs->{inhumi})) {
-      my $v = dewpoint_dewpoint($webArgs->{intemp}, $webArgs->{inhumi});
+      my $v = int( dewpoint_dewpoint($webArgs->{intemp}, $webArgs->{inhumi}) + 0.5 );
       readingsBulkUpdate( $hash, "dewpointIndoor", $v );
     }
 
     # humidityAbs
     if (defined($webArgs->{outtemp}) && defined($webArgs->{outhumi})) {
-      my $v = dewpoint_absFeuchte($webArgs->{outtemp}, $webArgs->{outhumi});
+      my $v = int( dewpoint_absFeuchte($webArgs->{outtemp}, $webArgs->{outhumi}) + 0.5 );
       readingsBulkUpdate( $hash, "humidityAbs", $v );
     }
 
     # humidityIndoorAbs
     if (defined($webArgs->{intemp}) && defined($webArgs->{inhumi})) {
-      my $v = dewpoint_absFeuchte($webArgs->{intemp}, $webArgs->{inhumi});
+      my $v = int( dewpoint_absFeuchte($webArgs->{intemp}, $webArgs->{inhumi}) + 0.5 );
       readingsBulkUpdate( $hash, "humidityIndoorAbs", $v );
     }