FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 08:11:44 +00:00
Code Issues Releases Wiki Activity

CUL_HM:EP display korrektur

Browse Source 
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
1 changed files with 19 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/10_CUL_HM.pm
View File

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