From f0aa626df196aff0e38f4f4facd29f04de04bef6 Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 30 Dec 2012 19:01:15 +0000
Subject: [PATCH] register set bugfix for partial bytes

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

diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm
index 6be6bb619..8ed90cc96 100755
--- a/FHEM/10_CUL_HM.pm
+++ b/FHEM/10_CUL_HM.pm
@@ -2110,10 +2110,13 @@ CUL_HM_Set($@)
     my $addrData;
 	if ($dLen < 8){# fractional byte see whether we have stored the register
 	  #read full 8 bit!!!
-	  my $curVal = CUL_HM_getRegFromStore(CUL_HM_id2Name($dst.$lChn),
+	  my $rName = CUL_HM_id2Name($dst.$lChn);
+	  $rName =~ s/_chn:.*//;
+	  my $curVal = CUL_HM_getRegFromStore($rName,
 	                                      $addr,$list,$peerID.$peerChn);
 	  return "cannot read current value for Bitfield - retrieve Data first" 
 	             if (!$curVal);
+	  $curVal =~ s/set_//; # set is not relevant, we take it as given
 	  $data = ($curVal & (~($mask<<$bit)))|($data<<$bit);
 	  $addrData.=sprintf("%02X%02X",$addr,$data);
 	}