add shading out routine then coming home and shading mode is absent
This commit is contained in:
parent
67134f6e67
commit
f51af5bf46
@ -1255,6 +1255,18 @@ sub EventProcessingResidents($@) {
|
|||||||
$shutters->setLastDrive('shading in');
|
$shutters->setLastDrive('shading in');
|
||||||
$shutters->setDriveCmd( $shutters->getShadingPos );
|
$shutters->setDriveCmd( $shutters->getShadingPos );
|
||||||
}
|
}
|
||||||
|
elsif (
|
||||||
|
$shutters->getShadingMode eq 'absent'
|
||||||
|
and IsDay($shuttersDev)
|
||||||
|
and $shutters->getIfInShading
|
||||||
|
and $shutters->getStatus == $shutters->getShadingPos
|
||||||
|
and not( CheckIfShuttersWindowRecOpen($shuttersDev) == 2
|
||||||
|
and $shutters->getShuttersPlace eq 'terrace' )
|
||||||
|
)
|
||||||
|
{
|
||||||
|
$shutters->setLastDrive('shading out');
|
||||||
|
$shutters->setDriveCmd( $shutters->getLastPos );
|
||||||
|
}
|
||||||
elsif (
|
elsif (
|
||||||
$ascDev->getSelfDefense eq 'on'
|
$ascDev->getSelfDefense eq 'on'
|
||||||
and CheckIfShuttersWindowRecOpen($shuttersDev) != 0
|
and CheckIfShuttersWindowRecOpen($shuttersDev) != 0
|
||||||
|
Loading…
x
Reference in New Issue
Block a user