From 9d77ac4811dc257378e60d8ba11ccd09a5ba1e47 Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Mon, 20 Apr 2020 15:17:33 +0200 Subject: [PATCH] fix Eventhandling --- 73_AutoShuttersControl.pm | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm index 8c74595..38eb526 100644 --- a/73_AutoShuttersControl.pm +++ b/73_AutoShuttersControl.pm @@ -2379,6 +2379,7 @@ sub ShadingProcessing { my $getShadingPos = $shutters->getShadingPos; my $getStatus = $shutters->getStatus; my $oldShadingStatus = $shutters->getShadingStatus; + my $shuttersDevHash = $defs{$shuttersDev}; my $getModeUp = $shutters->getModeUp; my $homemode = $shutters->getHomemode; @@ -2516,13 +2517,14 @@ sub ShadingProcessing { ) ); - readingsSingleUpdate( - $defs{$shuttersDev}, + readingsBeginUpdate($shuttersDevHash); + readingsBulkUpdateIfChanged( + $shuttersDevHash, 'ASC_ShadingMessage', 'INFO: current shading status is \'' . $shutters->getShadingStatus . '\'', - 1 - ); + ); + readingsEndUpdate( $shuttersDevHash, 1 ); return; } @@ -4844,8 +4846,10 @@ sub _CheckShuttersConditionsForShadingFn { && $infoMessage ne '' && $errorMessage eq '' ); - readingsSingleUpdate( $shuttersDevHash, 'ASC_ShadingMessage', - '' . $message . ' ', 1 ); + readingsBeginUpdate($shuttersDevHash); + readingsBulkUpdateIfChanged( $shuttersDevHash, 'ASC_ShadingMessage', + '' . $message . ' ' ); + readingsEndUpdate( $shuttersDevHash, 1 ); } ######################################