From 81a65f48e333e6ba350c23e81b02719f3d435cef Mon Sep 17 00:00:00 2001
From: hofrichter <hofrichter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 1 Jan 2015 21:45:07 +0000
Subject: [PATCH] 70_PIONEERAVR.pm: bugfix

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7400 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/70_PIONEERAVR.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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