change code for ASC_Shading_Mode
This commit is contained in:
@ -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 )
|
||||||
|
Reference in New Issue
Block a user