fix syntax error
This commit is contained in:
@@ -2070,7 +2070,7 @@ sub ShadingProcessing($@) {
|
|||||||
{
|
{
|
||||||
$shutters->setShadingStatus('out');
|
$shutters->setShadingStatus('out');
|
||||||
$shutters->setShadingLastStatus('in')
|
$shutters->setShadingLastStatus('in')
|
||||||
if ( $shutters->getShadingLastStatus eq 'out';
|
if ( $shutters->getShadingLastStatus eq 'out' );
|
||||||
}
|
}
|
||||||
|
|
||||||
Log3( $name, 4,
|
Log3( $name, 4,
|
||||||
@@ -2106,7 +2106,7 @@ sub ShadingProcessing($@) {
|
|||||||
{
|
{
|
||||||
$shutters->setShadingStatus('in');
|
$shutters->setShadingStatus('in');
|
||||||
$shutters->setShadingLastStatus('out')
|
$shutters->setShadingLastStatus('out')
|
||||||
if ( $shutters->getShadingLastStatus eq 'in';
|
if ( $shutters->getShadingLastStatus eq 'in' );
|
||||||
}
|
}
|
||||||
|
|
||||||
Log3( $name, 4,
|
Log3( $name, 4,
|
||||||
@@ -2309,10 +2309,8 @@ sub EventProcessingShutters($@) {
|
|||||||
$shutters->setLastManPos($1);
|
$shutters->setLastManPos($1);
|
||||||
|
|
||||||
$shutters->setShadingManualDriveStatus(1)
|
$shutters->setShadingManualDriveStatus(1)
|
||||||
if (
|
if ( $shutters->getIsDay
|
||||||
$shutters->getIsDay
|
and $shutters->getIfInShading );
|
||||||
and $shutters->getIfInShading
|
|
||||||
);
|
|
||||||
|
|
||||||
ASC_Debug(
|
ASC_Debug(
|
||||||
'EventProcessingShutters: eine manualle Fahrt wurde erkannt!');
|
'EventProcessingShutters: eine manualle Fahrt wurde erkannt!');
|
||||||
@@ -3910,7 +3908,8 @@ sub getPrivacyDownStatus {
|
|||||||
return (
|
return (
|
||||||
defined( $self->{ $self->{shuttersDev} }->{privacyDownStatus} )
|
defined( $self->{ $self->{shuttersDev} }->{privacyDownStatus} )
|
||||||
? $self->{ $self->{shuttersDev} }->{privacyDownStatus}
|
? $self->{ $self->{shuttersDev} }->{privacyDownStatus}
|
||||||
: undef );
|
: undef
|
||||||
|
);
|
||||||
}
|
}
|
||||||
|
|
||||||
sub getIsDay {
|
sub getIsDay {
|
||||||
@@ -4212,8 +4211,11 @@ sub getShadingLastStatus { # Werte für value = in, out
|
|||||||
sub getShadingManualDriveStatus { # Werte für value = in, out
|
sub getShadingManualDriveStatus { # Werte für value = in, out
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
|
|
||||||
return ( defined( $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus} )
|
return (
|
||||||
and defined( $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus}{VAL} )
|
defined( $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus} )
|
||||||
|
and defined(
|
||||||
|
$self->{ $self->{shuttersDev} }{ShadingManualDriveStatus}{VAL}
|
||||||
|
)
|
||||||
? $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus}{VAL}
|
? $self->{ $self->{shuttersDev} }{ShadingManualDriveStatus}{VAL}
|
||||||
: 0
|
: 0
|
||||||
);
|
);
|
||||||
|
Reference in New Issue
Block a user