From 3b6175cc6f35c36a072f77280ea3635eeabb9dfb Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 18 Jan 2014 08:50:19 +0000
Subject: [PATCH] repair regset for channels higher then 10

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

diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm
index 7f54827ab..7dd321691 100755
--- a/FHEM/10_CUL_HM.pm
+++ b/FHEM/10_CUL_HM.pm
@@ -1512,7 +1512,7 @@ sub CUL_HM_Parse($$) {##############################
   }
   elsif (eval "defined(&CUL_HM_Parse$st)"){####################################
     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";
     push @entities,@ret;
     push @event,"" if (@ret);
@@ -2734,7 +2734,7 @@ sub CUL_HM_Set($@) {
 
     my $cHash = CUL_HM_id2Hash($dst.($lChn eq '00'?"":$lChn));
     $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);
 
     CUL_HM_PushCmdStack($hash,$_) foreach(@postCmds);#ugly commands after regSet