From 20e0715985f0eb17ecc7b4ffd21e18ed14f9665a Mon Sep 17 00:00:00 2001
From: hofrichter <hofrichter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 13 Jul 2015 21:21:45 +0000
Subject: [PATCH] 70_PIONEERAVR: bugfix "R" were not deleted in INTERNAL
 PARTIAL

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

diff --git a/fhem/FHEM/70_PIONEERAVR.pm b/fhem/FHEM/70_PIONEERAVR.pm
index dad1e0707..d4772ff8a 100644
--- a/fhem/FHEM/70_PIONEERAVR.pm
+++ b/fhem/FHEM/70_PIONEERAVR.pm
@@ -2260,7 +2260,12 @@ sub PIONEERAVR_checkConnection ($) {
     # we got a reply -> connection is good -> restore state
 	Log3 $name, 5, "PIONEERAVR $name: PIONEERAVR_checkConnection() --- state: ".$hash->{STATE}." restored to: ".$state;
 	$hash->{STATE} = $state;
-	$hash->{PARTIAL} .= $connState;
+	Log3 $name, 5, "PIONEERAVR $name: PIONEERAVR_checkConnection() --- connstate: ".dq($connState)." PARTIAL: ".dq($hash->{PARTIAL});
+	if ($connState =~ m/^R\r?\n?$/) {
+      Log3 $name, 5, "PIONEERAVR $name: PIONEERAVR_checkConnection() --- connstate=R -> do nothing: ".dq($connState)." PARTIAL: ".dq($hash->{PARTIAL});
+	} else {
+	  $hash->{PARTIAL} .= $connState;
+	}
   } 
   if (AttrVal($name, "checkConnection", "enable") eq "enable" ) {
 	$hash->{helper}{nextConnectionCheck}  = gettimeofday()+120;