From f858f0ed68f3a0b7f6c8283cf2588c26d53c8a97 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Mon, 23 Sep 2013 21:22:35 +0000
Subject: [PATCH] improve list7 regset

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 0aee88931..f2287bf93 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -2450,6 +2450,9 @@ sub CUL_HM_Set($@) {
 	    $addrData.=sprintf("%02X",$addr+$cnt).substr($dataStr,$cnt*2,2);
 	  }
 	}
+
+    $lChn = "00" if($list == 7);#face to send
+
 	my $cHash = CUL_HM_id2Hash($dst.($chn eq '00'?"":$chn));
 	$cHash = $hash if (!$cHash);
     CUL_HM_pushConfig($cHash,$id,$dst,$lChn,$peerId,hex($peerChn),$list
@@ -3392,7 +3395,7 @@ sub CUL_HM_responseSetup($$) {#store all we need to handle the response
     
 	    $peer ="" if($list !~ m/^0[34]$/);
 	    #empty val since reading will be cumulative 
-	    my $rlName = ((CUL_HM_getAttrInt($hash->{NAME},"expert") == 2)?"":".")."RegL_".$list.":".$peer;
+	    my $rlName = ((CUL_HM_getAttrInt($chnhash->{NAME},"expert") == 2)?"":".")."RegL_".$list.":".$peer;
         $chnhash->{READINGS}{$rlName}{VAL}=""; 
         delete ($chnhash->{READINGS}{$rlName}{TIME}); 
 	    return;