From 51e96e52588dae924f4d08cfd144e29dd2b79b7b Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 9 May 2020 06:46:59 +0000
Subject: [PATCH] CUL_HM:correct bug for templateSet with non-channel peerings
 (e.g. 3-state sensor)

git-svn-id: https://svn.fhem.de/fhem/trunk@21899 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index dec567309..91a7bc34f 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -8319,7 +8319,9 @@ sub CUL_HMTmplSetCmd($){
   my $name = shift;
   return "" if(not scalar devspec2array("TYPE=HMinfo"));
   my %a;
-  foreach my $peer(split(",",InternalVal($name,"peerList","")),"0"){
+
+  foreach my $peerId(split(",",AttrVal($name,"peerIDs","")),"0"){ 
+    my $peer = CUL_HM_id2Name($peerId);
     my $ps = $peer eq "0" ? "R-" : "R-$peer-";
     my %b = map { $_ => 1 }map {(my $foo = $_) =~ s/.?$ps//; $foo;} grep/.?$ps/,keys%{$defs{$name}{READINGS}};
     foreach my $t(keys %HMConfig::culHmTpl){