change code for ASC_Shading_Mode
This commit is contained in:
parent
b6cca152f8
commit
7c889d7885
@ -41,7 +41,7 @@ package main;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
my $version = '0.2.1.43';
|
||||
my $version = '0.2.1.44';
|
||||
|
||||
sub AutoShuttersControl_Initialize($) {
|
||||
my ($hash) = @_;
|
||||
@ -1277,7 +1277,7 @@ sub EventProcessingShadingBrightness($@) {
|
||||
$shutters->getDirection, $shutters->getShadingAngleLeft,
|
||||
$shutters->getShadingAngleRight
|
||||
)
|
||||
if ( ( $shutters->getShadingMode eq 'on'
|
||||
if ( ( $shutters->getShadingMode eq 'always'
|
||||
or $shutters->getShadingMode eq $homemode)
|
||||
and IsDay( $hash, $shuttersDev ) );
|
||||
}
|
||||
@ -1325,7 +1325,7 @@ sub EventProcessingTwilightDevice($@) {
|
||||
)
|
||||
if (
|
||||
(
|
||||
$shutters->getShadingMode eq 'on'
|
||||
$shutters->getShadingMode eq 'always'
|
||||
or $shutters->getShadingMode eq $homemode
|
||||
)
|
||||
and IsDay( $hash, $shuttersDev )
|
||||
|
Loading…
Reference in New Issue
Block a user