From a120d9b2648af8a9371b82a82ee18ca28d603787 Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 25 Oct 2015 20:04:52 +0000
Subject: [PATCH] CUL_HM:ugly display bugs

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@9675 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 5af3c0b9c..ba6f0afd0 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -6828,7 +6828,7 @@ sub CUL_HM_chgExpLvl($){# update visibility and set internal values for expert
     $p = "-".$1 if($rdEntry =~m /R-(.*)-(lg|sh)/);
     $reg =~ s/\.?R-(.*?-)?//;
     next if(!$culHmRegDefine->{$reg} || $culHmRegDefine->{$reg}{d} eq '0');
-    $tHash->{READINGS}{$nTag."R-$p".$reg} = $tHash->{READINGS}{$rdEntry};
+    $tHash->{READINGS}{$nTag."R$p-".$reg} = $tHash->{READINGS}{$rdEntry};
     delete $tHash->{READINGS}{$rdEntry};
   }
   if ($tHash->{helper}{expert}{det}){($nTag,$grp) = ("",".R-")}