From 393a7a06c3c28b78b1bad8a10b8649320a4bf06e Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 7 Jan 2015 16:31:01 +0000
Subject: [PATCH] CUL_HM:remove supervision after press kommand

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index dcab72c30..e6ccd0000 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -922,7 +922,7 @@ sub CUL_HM_Parse($$) {#########################################################
   return "" if($msgStat && $msgStat eq 'NACK');# lowlevel error
   # $shash will be replaced for multichannel commands
   my $shash  = CUL_HM_id2Hash($src); #sourcehash - will be modified to channel entity
-  my $devH   = $shash;                # source device hash
+  my $devH   = $shash;               # source device hash
   my $dstH   = CUL_HM_id2Hash($dst); # destination device hash
   my $id     = CUL_HM_h2IoId($iohash);
   my $ioName = $iohash->{NAME};
@@ -4278,6 +4278,7 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
         CUL_HM_PushCmdStack($pHash,"++${peerFlag}40$dst$peer$pc");
         $snd = 1;
         foreach my $pCh(grep /$peer/,@peerLchn){
+          delete $modules{CUL_HM}{defptr}{$pCh}{helper}{dlvl};#stop desiredLevel supervision
           my $n = CUL_HM_id2Name($pCh);
           $n =~s/_chn:.*//;
           CUL_HM_stateUpdatDly($n,10);