mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

70_PIONEERAVR.pm: bugfix

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7400 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hofrichter
2015-01-01 21:45:07 +00:00
parent 8b2c57b1d9
commit 81a65f48e3
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/70_PIONEERAVR.pm
View File

@@ -1495,7 +1495,7 @@ sub PIONEERAVR_Read($)
Log3 $hash,5,"PIONEERAVR $name: ".dq($line) ." interpreted as: Display update to: $display"; Log3 $hash,5,"PIONEERAVR $name: ".dq($line) ." interpreted as: Display update to: $display";
# displayInformation # displayInformation
} elsif ( $line =~ m/^GEH|GEI(\d{2})(\d)(\d{2})\"(.*)\"$/ ) { } elsif ( $line =~ m/^(GEH|GEI)(\d{2})(\d)(\d{2})\"(.*)\"$/ ) {
# Format: # Format:
# $1: Line number # $1: Line number
# $2: Focus (yes(1)/no(0)/greyed out(9) # $2: Focus (yes(1)/no(0)/greyed out(9)
@@ -1520,10 +1520,10 @@ sub PIONEERAVR_Read($)
# 32:Channel # 32:Channel
# 33:Station # 33:Station
# $4: Display line information (UTF8) # $4: Display line information (UTF8)
my $lineDataType = $hash->{helper}{LINEDATATYPES}{$3}; my $lineDataType = $hash->{helper}{LINEDATATYPES}{$4};
readingsBulkUpdate($hash, $lineDataType, $4); readingsBulkUpdate($hash, $lineDataType, $5);
Log3 $hash,5,"PIONEERAVR $name: ".dq($line) ." interpreted as: displayDataType $lineDataType: " . dq($4); Log3 $hash,5,"PIONEERAVR $name: ".dq($line) ." interpreted as: displayDataType $lineDataType: " . dq($5);
# Tuner channel names # Tuner channel names
} elsif ( $line =~ m/^TQ(\w\d)\"(.{8})\"$/ ) { } elsif ( $line =~ m/^TQ(\w\d)\"(.{8})\"$/ ) {
$hash->{helper}{TUNERCHANNELNAMES}{$1} = $2; $hash->{helper}{TUNERCHANNELNAMES}{$1} = $2;