From ad464dfab6d45c22e9ad1b5f4fa74dac35373ee1 Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 4 Feb 2018 12:27:05 +0000
Subject: [PATCH] HMtemplate:update peer handling

git-svn-id: https://svn.fhem.de/fhem/trunk@16079 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_HMtemplate.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_HMtemplate.pm b/fhem/FHEM/98_HMtemplate.pm
index 4626cdb12..853a50505 100644
--- a/fhem/FHEM/98_HMtemplate.pm
+++ b/fhem/FHEM/98_HMtemplate.pm
@@ -90,7 +90,7 @@ sub HMtemplate_Attr(@) {#######################################################
       #burstRx  =>{min=>0,max=>255  ,c=>'lit',f=>'',t=>'device reacts on Burst'    ,lit=>{off=>0,on=>1}},
       #MaxTimeF =>{min=>0,max=>25.5 ,c=>''   ,f=>10,t=>"max time first direction." ,lit=>{unused=>25.5}},
       my $rN = substr($attrName,4);
-      my $ty = (AttrVal($name,"tpl_type","") =~ m/peer-/)?"lg":""; #RegDef for long and short is identical. Just extend to any sh or lg
+      my $ty = (AttrVal($name,"tpl_type",InternalVal($name,"tpl_type","")) =~ m/peer-both/) ? "" : "lg"; #RegDef for long and short is identical. Just extend to any sh or lg
       my $calc = $culHmRegDef->{$ty.$rN}{c};
       if ($attr{$name}{tpl_params} && $attr{$name}{tpl_params} =~ m/\b$attrVal\b/){
         # allow any parameter in any string
@@ -157,7 +157,6 @@ sub HMtemplate_Attr(@) {#######################################################
       my $paramSold = join(",",split(" ",$attr{$name}{tpl_params}));
       #$modules{HMtemplate}{AttrList} =~ s/$paramSold/$paramSnew/g;
       $modules{HMtemplate}{AttrList} = join(" ",@at);
-      Log 1,"General \n   $paramSnew\n   $paramSold".join("\n   ".split(" ","$modules{HMtemplate}{AttrList}"));
       
       $hash->{tpl_Param} = $attrVal;
     }