change code for ASC_Shading_Mode

This commit is contained in:
Marko Oldenburg
2018-12-07 19:57:48 +01:00
parent b6cca152f8
commit 7c889d7885

View File

@ -41,7 +41,7 @@ package main;
use strict; use strict;
use warnings; use warnings;
my $version = '0.2.1.43'; my $version = '0.2.1.44';
sub AutoShuttersControl_Initialize($) { sub AutoShuttersControl_Initialize($) {
my ($hash) = @_; my ($hash) = @_;
@ -1277,7 +1277,7 @@ sub EventProcessingShadingBrightness($@) {
$shutters->getDirection, $shutters->getShadingAngleLeft, $shutters->getDirection, $shutters->getShadingAngleLeft,
$shutters->getShadingAngleRight $shutters->getShadingAngleRight
) )
if ( ( $shutters->getShadingMode eq 'on' if ( ( $shutters->getShadingMode eq 'always'
or $shutters->getShadingMode eq $homemode) or $shutters->getShadingMode eq $homemode)
and IsDay( $hash, $shuttersDev ) ); and IsDay( $hash, $shuttersDev ) );
} }
@ -1325,7 +1325,7 @@ sub EventProcessingTwilightDevice($@) {
) )
if ( if (
( (
$shutters->getShadingMode eq 'on' $shutters->getShadingMode eq 'always'
or $shutters->getShadingMode eq $homemode or $shutters->getShadingMode eq $homemode
) )
and IsDay( $hash, $shuttersDev ) and IsDay( $hash, $shuttersDev )