From 9ae819017b20bd7d50082663a1de9225f70cda46 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sun, 24 Aug 2014 10:39:23 +0000
Subject: [PATCH] correct rt battery indication

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 40e2f030e..0a3a46240 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -1188,8 +1188,6 @@ sub CUL_HM_Parse($$) {#########################################################
       my ($dHash,$err       ,$ctrlMode  ,$setTemp          ,$bTime,$pTemp,$pStart,$pEnd,$chn,$uk0,$lBat,$actTemp,$vp) = 
          ($shash,hex($mI[3]),hex($mI[5]),hex($mI[1].$mI[2]),"-"    ,"-"   ,"-"    ,"-"                             );
       
-      $lBat = $err&0x80?"low":"ok"; # valid for Info-Level message?
-      
       if($mTp eq "10"){
         $chn = "04";#fixed
         my $bat  =(($err            ) & 0x1f)/10+1.5;
@@ -1218,6 +1216,7 @@ sub CUL_HM_Parse($$) {#########################################################
         $shash = $modules{CUL_HM}{defptr}{"$src$chn"} if($modules{CUL_HM}{defptr}{"$src$chn"});
         $actTemp = ReadingsVal($name,"measured-temp","");
         $vp      = ReadingsVal($name,"actuator","");
+        $lBat = $err&0x80?"low":"ok";
       }
       $setTemp    =(($setTemp        ) & 0x3f )/2;
       $err        = ($err            ) & 0x7  ;
@@ -1262,7 +1261,7 @@ sub CUL_HM_Parse($$) {#########################################################
       push @evtEt,[$shash,1,"partyTemp:$pTemp"];
       #push @evtEt,[$shash,1,"unknown0:$uk0"];
       #push @evtEt,[$shash,1,"unknown1:".$2 if ($p =~ m/^0A(.10)(.*)/)];
-      push @evtEt,[$dHash,1,"battery:$lBat"];
+      push @evtEt,[$dHash,1,"battery:$lBat"] if ($lBat);
       push @evtEt,[$dHash,1,"desired-temp:$setTemp"];
     }
     elsif($mTp eq "59" && $p =~ m/^(..)/) {#inform team about new value