FHEM/mod-GardenaSmart
1
0
Fork 0
Code Issues 2 Pull Requests Releases 3 Wiki Activity

little bugfix, thanks Christoph

Browse Source
This commit is contained in:
Marko Oldenburg 2020-04-28 15:18:54 +02:00
parent c27b8ff1e7
commit 374745adb7
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
74_GardenaSmartDevice.pm
View File

@ -485,7 +485,7 @@ sub WriteReadings {
$hash, $hash,
$decode_json->{abilities}[$abilities]{name} . '-' $decode_json->{abilities}[$abilities]{name} . '-'
. $propertie->{name}, . $propertie->{name},
RigRadingsValue( $hash, $propertie->{value} ) RigReadingsValue( $hash, $propertie->{value} )
) )
if ( defined( $propertie->{value} ) if ( defined( $propertie->{value} )
&& $decode_json->{abilities}[$abilities]{name} . '-' && $decode_json->{abilities}[$abilities]{name} . '-'
@ -508,7 +508,7 @@ sub WriteReadings {
$hash, $hash,
$decode_json->{abilities}[$abilities]{name} . '-' $decode_json->{abilities}[$abilities]{name} . '-'
. $propertie->{name}, . $propertie->{name},
RigRadingsValue( $hash, $propertie->{value} ) RigReadingsValue( $hash, $propertie->{value} )
) )
if ( if (
defined( $propertie->{value} ) defined( $propertie->{value} )
@ -557,7 +557,7 @@ sub WriteReadings {
$decode_json->{abilities}[$abilities]{name} . '-' $decode_json->{abilities}[$abilities]{name} . '-'
. $propertie->{name} . '_' . $propertie->{name} . '_'
. $r, . $r,
RigRadingsValue( $hash, $v ) RigReadingsValue( $hash, $v )
); );
} }
} }
@ -606,9 +606,9 @@ sub WriteReadings {
readingsBulkUpdate( readingsBulkUpdate(
$hash, 'state', $hash, 'state',
( (
ReadingsVal( $name, 'watering-watering_timer_1_state', 0 ) eq 'idle' ReadingsVal( $name, 'watering-watering_timer_1_state', 'idle' ) eq 'idle'
? RigRadingsValue( $hash, 'closed' ) ? RigReadingsValue( $hash, 'closed' )
: RigRadingsValue( $hash, 'open' ) : RigReadingsValue( $hash, 'open' )
) )
) if ( AttrVal( $name, 'model', 'unknown' ) eq 'watering_computer' ); ) if ( AttrVal( $name, 'model', 'unknown' ) eq 'watering_computer' );
@ -770,7 +770,7 @@ sub ReadingLangGerman {
return; return;
} }
sub RigRadingsValue { sub RigReadingsValue {
my $hash = shift; my $hash = shift;
my $readingValue = shift; my $readingValue = shift;