fix Eventhandling
This commit is contained in:
parent
3e7becaf89
commit
9d77ac4811
@ -2379,6 +2379,7 @@ sub ShadingProcessing {
|
|||||||
my $getShadingPos = $shutters->getShadingPos;
|
my $getShadingPos = $shutters->getShadingPos;
|
||||||
my $getStatus = $shutters->getStatus;
|
my $getStatus = $shutters->getStatus;
|
||||||
my $oldShadingStatus = $shutters->getShadingStatus;
|
my $oldShadingStatus = $shutters->getShadingStatus;
|
||||||
|
my $shuttersDevHash = $defs{$shuttersDev};
|
||||||
|
|
||||||
my $getModeUp = $shutters->getModeUp;
|
my $getModeUp = $shutters->getModeUp;
|
||||||
my $homemode = $shutters->getHomemode;
|
my $homemode = $shutters->getHomemode;
|
||||||
@ -2516,13 +2517,14 @@ sub ShadingProcessing {
|
|||||||
)
|
)
|
||||||
);
|
);
|
||||||
|
|
||||||
readingsSingleUpdate(
|
readingsBeginUpdate($shuttersDevHash);
|
||||||
$defs{$shuttersDev},
|
readingsBulkUpdateIfChanged(
|
||||||
|
$shuttersDevHash,
|
||||||
'ASC_ShadingMessage',
|
'ASC_ShadingMessage',
|
||||||
'INFO: current shading status is \''
|
'INFO: current shading status is \''
|
||||||
. $shutters->getShadingStatus . '\'',
|
. $shutters->getShadingStatus . '\'',
|
||||||
1
|
);
|
||||||
);
|
readingsEndUpdate( $shuttersDevHash, 1 );
|
||||||
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
@ -4844,8 +4846,10 @@ sub _CheckShuttersConditionsForShadingFn {
|
|||||||
&& $infoMessage ne ''
|
&& $infoMessage ne ''
|
||||||
&& $errorMessage eq '' );
|
&& $errorMessage eq '' );
|
||||||
|
|
||||||
readingsSingleUpdate( $shuttersDevHash, 'ASC_ShadingMessage',
|
readingsBeginUpdate($shuttersDevHash);
|
||||||
'<html>' . $message . ' </html>', 1 );
|
readingsBulkUpdateIfChanged( $shuttersDevHash, 'ASC_ShadingMessage',
|
||||||
|
'<html>' . $message . ' </html>' );
|
||||||
|
readingsEndUpdate( $shuttersDevHash, 1 );
|
||||||
}
|
}
|
||||||
|
|
||||||
######################################
|
######################################
|
||||||
|
Loading…
Reference in New Issue
Block a user