improve reload of registersettings

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6043 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876
2014-06-03 18:07:22 +00:00
parent e2f6f7280d
commit b75e9476e4

View File

@@ -1298,7 +1298,9 @@ sub HMinfo_loadConfig($@) {####################################################
$param =~ s/\.RegL/RegL/;
$param =~ s/RegL/\.RegL/ if ($exp != 2);
my ($reg,$data) = split(" ",$param,2);
my $rl = join",",CUL_HM_reglUsed($eN);
my @rla = CUL_HM_reglUsed($eN);
next if (!$rla[0]);
my $rl = join",",@rla;
my $r2 = $reg;
$r2 =~ s/^\.//;
@@ -1318,6 +1320,7 @@ sub HMinfo_loadConfig($@) {####################################################
$defs{$eN}{READINGS}{$reg}{VAL} = $changes{$eN}{$reg};
$defs{$eN}{READINGS}{$reg}{TIME} = "from archive";
my ($list,$pN) = ($1,$2) if ($reg =~ m/RegL_(..):(.*)/);
next if (!$list);
my $pId = CUL_HM_peerChId($pN,substr($defs{$eN}{DEF},0,6));
CUL_HM_updtRegDisp($defs{$eN},$list,$pId);
push @el,"$eN reg list:$reg";