2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 08:11:44 +00:00

CUL_HM:EP display korrektur

git-svn-id: https://svn.fhem.de/fhem/trunk@11902 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2016-08-06 04:56:39 +00:00
parent 10d6b2e561
commit 7b25bd70e1

View File

@ -4938,11 +4938,14 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
$evtDly = 1;
foreach my $line (@disp_lines[0..2]) {# only 3 lines
# Split line into text and icon part separated by comma
my ($text, $icon);
$snd .= '12';# start text indicator
if (defined $line && $line ne '') {
($text, $icon) = split (',', $line.","); # add separator in case Icon is dismissed
if (!defined $line || $line eq '') {
$line = ReadingsVal($name,"line${lineNr}_text","")
.","
.ReadingsVal($name,"line${lineNr}_icon","off");
}
my ($text, $icon) = split (',', $line.","); # add separator in case Icon is dismissed
# Hex code
if ($text =~ /^0x[0-9A-F]{2}$/) {
@ -4959,14 +4962,6 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
$snd .= sprintf ("%02X", ord ($ch));
}
}
}
else{
$text = ReadingsVal($name,"line${lineNr}_text","");
$icon = ReadingsVal($name,"line${lineNr}_icon","off");
foreach my $ch (split ('', substr ($text, 0, 12))) {
$snd .= sprintf ("%02X", ord ($ch));
}
}
$snd .= '13'.$disp_icons{$icon} if ($disp_icons{$icon});
$snd .= '0A';
@ -8436,7 +8431,7 @@ sub CUL_HM_UpdtCentral($){
next if (!$defs{$ioN});
if ( $defs{$ioN}{TYPE} =~ m/^(HMLAN|HMUARTLGW)$/){;
}
elsif($defs{$ioN}{TYPE} eq "CUL"){
elsif(($defs{$ioN}{TYPE} eq "CUL")||($defs{$ioN}{TYPE} eq "STACKABLE_CC")){
CommandAttr(undef, "$ioN rfmode HomeMatic")
if (AttrVal($ioN,"rfmode","") ne "HomeMatic");
}