FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

70_PIONEERAVR.pm: fixed "missed to call readingsBeginUpdate first"

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7499 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hofrichter 2015-01-10 17:48:15 +00:00
parent 91765eb5fe
commit 2b8bb3881a
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it.
- bugfix: 70_PIONEERAVR: fixed "missed to call readingsBeginUpdate first"
- feature: fhemweb.js rewrite based on jQuery, single-widget-implementation
- feature: SVG: multiple sources allowed, Plot-Editor
- feature: textfield-long and knob widgets

12
fhem/FHEM/70_PIONEERAVR.pm
View File

@ -1186,12 +1186,11 @@ sub PIONEERAVR_Read($)
while($buf =~ m/^(.*?)\r\n(.*)\Z/s ) {
my $line = $1;
$buf = $2;
Log3 $name, 5, "PIONEERAVR $name: processing ". dq($line) ." received from PIONEERAVR";
Log3 $name, 5, "PIONEERAVR $name: line to do soon: " . dq($buf) unless ($buf eq "");
#Log3 $name, 5, "PIONEERAVR $name: line to do soon: " . dq($buf) unless ($buf eq "");
if (( $line eq "R" ) ||( $line eq "" )) {
Log3 $hash, 5, "PIONEERAVR $name: Supressing received " . dq($line);
next;
next;
# Main zone volume
} elsif ( substr($line,0,3) eq "VOL" ) {
my $volume = substr($line,3,3);
@ -1260,11 +1259,11 @@ sub PIONEERAVR_Read($)
$hash->{helper}{main}{CURINPUTNR} = $inputNr;
# if($inputNr != "17" and $inputNr != "44" and $inputNr != "45"){
readingsBeginUpdate($hash);
#readingsBeginUpdate($hash);
foreach my $key ( keys %{$hash->{helper}{LINEDATATYPES}} ) {
readingsBulkUpdate($hash, $hash->{helper}{LINEDATATYPES}->{$key} , "");
}
readingsEndUpdate($hash, 1);
#readingsEndUpdate($hash, 1);
# input names
# RGBXXY(14char)
# XX -> input number
@ -1607,7 +1606,7 @@ sub PIONEERAVR_Read($)
# model
} elsif ( $line =~ m/^RGD<\d{3}><(.*)\/.*>$/ ) {
$hash->{model}= $1;
#$hash->{model}= $1;
Log3 $hash,5,"PIONEERAVR $name: ".dq($line) ." interpreted as: Model is " . $1;
# Software version
@ -1679,6 +1678,7 @@ sub PIONEERAVR_Read($)
# dispatch "zone" - commands to other zones
Dispatch($hash, $line, undef); # dispatch result to PIONEERAVRZONEs
Log3 $hash,5,"PIONEERAVR $name: ".dq($line) ." interpreted as: not for the Main zone -> dispatch to PIONEERAVRZONEs zone: $msgForZone";
$msgForZone = "";
}
}
# Connection still up?