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

CUL_HM: press virtual improvement

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7493 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2015-01-10 14:42:44 +00:00
parent 57cab65b70
commit f5814c3ba7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/10_CUL_HM.pm
View File

@ -4272,7 +4272,9 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
foreach my $peer (sort @peerList){
my ($pHash,$peerFlag,$rxt);
$pHash = CUL_HM_id2Hash($peer);
next if (!$pHash->{helper}{role}{prs});
next if ( !$pHash
|| !$pHash->{helper}{role}
|| !$pHash->{helper}{role}{prs});
$rxt = CUL_HM_getRxType($pHash);
$peerFlag = ($rxt & 0x02)?"B4":"A4" if($vChn ne "noBurst");#burst
CUL_HM_PushCmdStack($pHash,"++${peerFlag}40$dst$peer$pc");
@ -4280,6 +4282,7 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
foreach my $pCh(grep /$peer/,@peerLchn){
delete $modules{CUL_HM}{defptr}{$pCh}{helper}{dlvl};#stop desiredLevel supervision
my $n = CUL_HM_id2Name($pCh);
next if (!$n);
$n =~s/_chn:.*//;
CUL_HM_stateUpdatDly($n,10);
}