Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00
Code

repair regset for channels higher then 10

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@4680 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-01-18 08:50:19 +00:00
parent 600ddf7d43
commit 3b6175cc6f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
FHEM/10_CUL_HM.pm
View File

@ -1512,7 +1512,7 @@ sub CUL_HM_Parse($$) {##############################
} }
elsif (eval "defined(&CUL_HM_Parse$st)"){#################################### elsif (eval "defined(&CUL_HM_Parse$st)"){####################################
no strict "refs"; no strict "refs";
my @ret = &{"CUL_HM_Parse$st"}($mFlg,$mTp,$src,$dst,$p); my @ret = &{"CUL_HM_Parse$st"}($mFlg,$mTp,$src,$dst,$p,$target);
use strict "refs"; use strict "refs";
push @entities,@ret; push @entities,@ret;
push @event,"" if (@ret); push @event,"" if (@ret);
@ -2734,7 +2734,7 @@ sub CUL_HM_Set($@) {
my $cHash = CUL_HM_id2Hash($dst.($lChn eq '00'?"":$lChn)); my $cHash = CUL_HM_id2Hash($dst.($lChn eq '00'?"":$lChn));
$cHash = $hash if (!$cHash); $cHash = $hash if (!$cHash);
CUL_HM_pushConfig($cHash,$id,$dst,$lChn,$peerId,hex($peerChn),$list CUL_HM_pushConfig($cHash,$id,$dst,hex($lChn),$peerId,hex($peerChn),$list
,$addrData,$prep); ,$addrData,$prep);
CUL_HM_PushCmdStack($hash,$_) foreach(@postCmds);#ugly commands after regSet CUL_HM_PushCmdStack($hash,$_) foreach(@postCmds);#ugly commands after regSet