From 50c139f1583b2cf00a3e57ae36579bb5ef054294 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sun, 26 Jan 2014 19:32:00 +0000
Subject: [PATCH] repair channel switch at set reegister

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index ca7b2b0ed..3f96ad032 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -3727,7 +3727,8 @@ sub CUL_HM_pushConfig($$$$$$$$@) {#generate messages to config data to register
 #   my @chSplit = unpack('(A28)*',$change);
     my @chSplit = unpack('(A1120)*',$change);# makes max 40 lines, 280 byte
     foreach my $chSpl(@chSplit){
-      CUL_HM_PushCmdStack($hash, "++".$flag.'01'.$src.$dst.$chn.'05'.
+      my $mch = CUL_HM_lstCh($chnhash,$list,$chn);
+      CUL_HM_PushCmdStack($hash, "++".$flag.'01'.$src.$dst.$mch.'05'.
                                           $peerAddr.$peerChn.$list);
       $tl = length($chSpl);
       for(my $l = 0; $l < $tl; $l+=28) {
@@ -3735,7 +3736,7 @@ sub CUL_HM_pushConfig($$$$$$$$@) {#generate messages to config data to register
         CUL_HM_PushCmdStack($hash, "++A001".$src.$dst.$chn."08".
                                        substr($chSpl,$l,$ml));
       }
-      CUL_HM_PushCmdStack($hash,"++A001".$src.$dst.$chn."06");
+      CUL_HM_PushCmdStack($hash,"++A001".$src.$dst.$mch."06");
     }
     #########
   }