From 3f9cea50b0c6d38c3374e6b5a2df2bf04b1e6c44 Mon Sep 17 00:00:00 2001 From: martinp876 <> Date: Sun, 13 Apr 2014 15:22:34 +0000 Subject: [PATCH] improof config reload git-svn-id: https://svn.fhem.de/fhem/trunk@5518 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_HMinfo.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm index 2d37174e0..944a8a079 100644 --- a/fhem/FHEM/98_HMinfo.pm +++ b/fhem/FHEM/98_HMinfo.pm @@ -454,7 +454,7 @@ sub HMinfo_paramCheck(@) { #################################################### foreach my $eName (@entities){ if ($defs{$eName}{helper}{role}{dev}){ my $ehash = $defs{$eName}; - my $pairId = CUL_HM_Get($ehash,$eName,"param","PairedTo"); + my $pairId = CUL_HM_Get($ehash,$eName,"param","R-pairCentral"); my $IoDev = $ehash->{IODev} if ($ehash->{IODev}); my $ioHmId = AttrVal($IoDev->{NAME},"hmId","-"); if (!$IoDev) { push @noIoDev,$eName;} @@ -1346,7 +1346,6 @@ sub HMinfo_loadConfig($@) {#################################################### } elsif($cmd eq "regBulk"){ next if($param !~ m/RegL_0[0-9]:/); - my $exp = CUL_HM_getAttrInt($eN,"expert"); $param =~ s/\.RegL/RegL/; $param =~ s/RegL/\.RegL/ if ($exp != 2); @@ -1361,7 +1360,8 @@ sub HMinfo_loadConfig($@) {#################################################### push @elincmpl,"$eN reg list:$reg"; next; } - $changes{$eN}{$reg}=$data if (!$defs{$eN}{READINGS}{$reg}); + $changes{$eN}{$reg}=$data if (!$defs{$eN}{READINGS}{$reg} || + $defs{$eN}{READINGS}{$reg}{VAL} !~ m/00:00/); } } close(aSave);