FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

CUL_HM:bug for CC-TC corrected

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22497 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2020-07-31 06:12:29 +00:00
parent dd72fce7d4
commit bab908c2c8
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/FHEM/10_CUL_HM.pm
View File

@ -9146,14 +9146,14 @@ sub CUL_HM_TCtempReadings($) {# parse TC temperature readings
{ #update readings in device - oldfashioned style, copy from Readings { #update readings in device - oldfashioned style, copy from Readings
my @histVals; my @histVals;
foreach my $var ("displayMode","displayTemp","controlMode","decalcDay","displayTempUnit","day-temp","night-temp","party-temp"){ foreach my $var ("displayMode","displayTemp","controlMode","decalcDay","displayTempUnit","day-temp","night-temp","party-temp"){
my $varV = ReadingsVal($name,"R-".$var,"???"); my $varV = ReadingsVal($name,"R-".$var,ReadingsVal($name,".R-".$var,"???"));
foreach my $e( grep {${$_}[2] =~ m/$var/}# see if change is pending foreach my $e( grep {${$_}[2] =~ m/$var/}# see if change is pending
grep {$hash eq ${$_}[0]} grep {$hash eq ${$_}[0]}
grep {scalar(@{$_} == 3)} grep {scalar(@{$_} == 3)}
@evtEt){ @evtEt){
$varV = ${$e}[2]; $varV = ${$e}[2];
$varV =~ s/^R-$var:// ; $varV =~ s/^\.?R-$var:// ;
} }
push @histVals,"$var:$varV"; push @histVals,"$var:$varV";
} }
@ -9579,8 +9579,7 @@ sub CUL_HM_ActCheck($) {# perform supervision
$actHash->{helper}{actCycle} = AttrVal($actName,"actCycle",600); $actHash->{helper}{actCycle} = AttrVal($actName,"actCycle",600);
RemoveInternalTimer("ActionDetector"); RemoveInternalTimer("ActionDetector");
InternalTimer(gettimeofday()+$actHash->{helper}{actCycle} InternalTimer(gettimeofday()+$actHash->{helper}{actCycle},"CUL_HM_ActCheck", "ActionDetector", 0);
,"CUL_HM_ActCheck", "ActionDetector", 0);
} }
sub CUL_HM_ActInfo() {# print detailed status information sub CUL_HM_ActInfo() {# print detailed status information
my $actHash = CUL_HM_ActGetCreateHash(); my $actHash = CUL_HM_ActGetCreateHash();
@ -10362,7 +10361,7 @@ sub CUL_HM_complConfig($;$) {# read config if enabled and not complete
if ($defs{$devN}{helper}{prt}{sProc} != 0){# we wait till device is idle. if ($defs{$devN}{helper}{prt}{sProc} != 0){# we wait till device is idle.
CUL_HM_complConfigTest($name); # requeue and wait patient CUL_HM_complConfigTest($name); # requeue and wait patient
} }
elsif (CUL_HM_peerUsed($name) == 2){ elsif (CUL_HM_peerUsed($name) == 2){# 2: peer list incomplete
CUL_HM_qAutoRead($name,0) if(!$dly); CUL_HM_qAutoRead($name,0) if(!$dly);
CUL_HM_complConfigTest($name); CUL_HM_complConfigTest($name);
delete $modules{CUL_HM}{helper}{cfgCmpl}{$name}; delete $modules{CUL_HM}{helper}{cfgCmpl}{$name};