Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

10_CUL_HM:template display bug and correction of RT<>TC Team

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@15457 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2017-11-19 18:18:18 +00:00
parent d0b926371a
commit 6fc00c84d2
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/10_CUL_HM.pm
View File

@ -5341,11 +5341,15 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
,CUL_HM_name2Id($name) # myself ,CUL_HM_name2Id($name) # myself
); );
foreach my $tId (@teamList){ foreach my $tId (@teamList){
my $teamC = CUL_HM_id2Name($tId);
$tId = substr($tId,0,6); $tId = substr($tId,0,6);
my $teamD = CUL_HM_id2Name($tId); my $teamD = CUL_HM_id2Name($tId);
my $teamCh = ("HM-CC-RT-DN" eq AttrVal($teamD,"model","")) ? "04" #what is the controls channel of the peer?
: "02";
my $teamC = CUL_HM_id2Name($tId.$teamCh);
next if (!defined $defs{$teamC} ); next if (!defined $defs{$teamC} );
CUL_HM_PushCmdStack($defs{$teamD},'++'.$flag."11$id$tId"."8604$temp");
CUL_HM_PushCmdStack($defs{$teamD},'++'.$flag."11$id$tId"."86$teamCh$temp");
CUL_HM_UpdtReadSingle($defs{$teamC},"state",$state,1); CUL_HM_UpdtReadSingle($defs{$teamC},"state",$state,1);
if ( $tId ne $dst if ( $tId ne $dst
&& CUL_HM_getRxType($defs{$teamD}) & "02"){ && CUL_HM_getRxType($defs{$teamD}) & "02"){
@ -7828,10 +7832,9 @@ sub CUL_HM_chgExpLvl($){# update visibility and set internal values for expert
sub CUL_HM_setTmplDisp($){ # remove register if outdated sub CUL_HM_setTmplDisp($){ # remove register if outdated
my $tHash = shift; my $tHash = shift;
delete $tHash->{READINGS}{$_} foreach (grep /^tmpl_/ ,keys %{$tHash->{READINGS}}); delete $tHash->{READINGS}{$_} foreach (grep /^tmpl_/ ,keys %{$tHash->{READINGS}});
if ($tHash->{helper}{expert}{tpl} && defined $HMConfig::culHmTpl){ if ($tHash->{helper}{expert}{tpl} && defined %HMConfig::culHmTpl){
foreach (keys %{$tHash->{helper}{tmpl}}){ foreach (keys %{$tHash->{helper}{tmpl}}){
my ($p,$t) = split(">",$_); my ($p,$t) = split(">",$_);
my @param; my @param;
if($tHash->{helper}{tmpl}{$_}){ if($tHash->{helper}{tmpl}{$_}){
@param = split(" ",$HMConfig::culHmTpl{$t}{p}); @param = split(" ",$HMConfig::culHmTpl{$t}{p});