change logical for drive on shading then shutter pos is closed
change code in EventProcessingFunctions to call function ShadingProcessingDriveCommand
This commit is contained in:
@ -637,7 +637,7 @@ sub EventProcessingRoommate {
|
||||
->getSelfDefenseState
|
||||
)
|
||||
{
|
||||
ShadingProcessingDriveCommand( $hash, $shuttersDev );
|
||||
ShadingProcessingDriveCommand( $hash, $shuttersDev, 1 );
|
||||
}
|
||||
elsif (
|
||||
!$FHEM::Automation::ShuttersControl::shutters->getIsDay
|
||||
@ -962,7 +962,7 @@ sub EventProcessingResidents {
|
||||
&& $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRoommatesStatus eq 'none' )
|
||||
{
|
||||
ShadingProcessingDriveCommand( $hash, $shuttersDev );
|
||||
ShadingProcessingDriveCommand( $hash, $shuttersDev, 1 );
|
||||
}
|
||||
elsif (
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -1098,7 +1098,7 @@ sub EventProcessingResidents {
|
||||
->getSelfDefenseState
|
||||
)
|
||||
{
|
||||
ShadingProcessingDriveCommand( $hash, $shuttersDev );
|
||||
ShadingProcessingDriveCommand( $hash, $shuttersDev, 1 );
|
||||
}
|
||||
elsif (
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingMode eq
|
||||
|
@ -513,6 +513,7 @@ sub ShadingProcessing {
|
||||
sub ShadingProcessingDriveCommand {
|
||||
my $hash = shift;
|
||||
my $shuttersDev = shift;
|
||||
my $marker = shift // 0;
|
||||
|
||||
my $name = $hash->{NAME};
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShuttersDev($shuttersDev);
|
||||
@ -527,7 +528,11 @@ sub ShadingProcessingDriveCommand {
|
||||
if ( IsInTime($FHEM::Automation::ShuttersControl::shutters->getShadingBetweenTheTime)
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getShadingStatus eq 'in'
|
||||
&& $getShadingPos != $getStatus
|
||||
&& $getStatus != $FHEM::Automation::ShuttersControl::shutters->getClosedPos
|
||||
&& ( $getStatus != $FHEM::Automation::ShuttersControl::shutters->getClosedPos
|
||||
|| ( $getStatus == $FHEM::Automation::ShuttersControl::shutters->getClosedPos
|
||||
&& $marker
|
||||
)
|
||||
)
|
||||
&& (
|
||||
FHEM::Automation::ShuttersControl::CheckIfShuttersWindowRecOpen(
|
||||
$shuttersDev) != 2
|
||||
|
Reference in New Issue
Block a user