From ba318e75df932968f68e65f89e6d06bfa35c0e14 Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 25 Oct 2015 21:05:44 +0000
Subject: [PATCH] hminfo:more configCheck bugs

git-svn-id: https://svn.fhem.de/fhem/trunk@9677 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_HMinfo.pm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index 4658d4920..d6be4ad67 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -499,13 +499,13 @@ sub HMinfo_burstCheck(@) { ####################################################
       my $prxt = CUL_HM_getRxType($defs{$pn});
       
       next if (!($prxt & 0x82)); # not a burst peer
-      my $pnb = ReadingsVal($eName,"R-$pn-peerNeedsBurst",undef);
+      my $pnb = ReadingsVal($eName,"R-$pn-peerNeedsBurst",ReadingsVal($eName,".R-$pn-peerNeedsBurst",undef));
       if (!$pnb)           {push @needBurstMiss, $eName;}
       elsif($pnb !~ m /on/){push @needBurstFail, $eName;}
 
       if ($prxt & 0x80){# conditional burst - is it on?
         my $pDevN = CUL_HM_getDeviceName($pn);
-        push @peerIDsCond," $pDevN for remote $eName" if (ReadingsVal($pDevN,"R-burstRx","") !~ m /on/);
+        push @peerIDsCond," $pDevN for remote $eName" if (ReadingsVal($pDevN,"R-burstRx",ReadingsVal($pDevN,".R-burstRx","")) !~ m /on/);
       }
     }
   }
@@ -2100,11 +2100,9 @@ sub HMinfo_templateChk(@){#####################################################
       foreach my $rn (keys%{$HMConfig::culHmTpl{$tmpl}{reg}}){
         my $regV;
         if ($pRnm){
-          $regV    = ReadingsVal($aName,"R-$pRnm$rn" ,undef);
-          $regV    = ReadingsVal($aName,".R-$pRnm$rn",undef) if (!defined $regV);
+          $regV    = ReadingsVal($aName,"R-$pRnm$rn" ,ReadingsVal($aName,".R-$pRnm$rn",undef));
         }
-        $regV    = ReadingsVal($aName,"R-".$rn     ,undef) if (!defined $regV);
-        $regV    = ReadingsVal($aName,".R-".$rn    ,undef) if (!defined $regV);
+        $regV    = ReadingsVal($aName,"R-".$rn     ,ReadingsVal($aName,".R-".$rn    ,undef)) if (!defined $regV);
         if (defined $regV){
           $regV =~s/ .*//;#strip unit
           my $tplV = $HMConfig::culHmTpl{$tmpl}{reg}{$rn};