diff --git a/fhem/CHANGED b/fhem/CHANGED index 5e9a57c3d..56b28d4d7 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,7 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - feature: 73_AutoShuttersControl: change ReadingsVal to ReadingsNum for + read position Reading, add setDriveReading for wiggle - bugfix: 73_AutoShuttersControl: Code clean, fix unwanted rollo rides - feature: msgSchema: add support for LaMetric screen messages - bugfix: 70_BRAVIA: removed unnecessary internals name, generation, model diff --git a/fhem/FHEM/73_AutoShuttersControl.pm b/fhem/FHEM/73_AutoShuttersControl.pm index 0285c9da6..da7c2b40e 100644 --- a/fhem/FHEM/73_AutoShuttersControl.pm +++ b/fhem/FHEM/73_AutoShuttersControl.pm @@ -1559,10 +1559,12 @@ sub wiggle($$) { my ( $hash, $shuttersDev ) = @_; $shutters->setShuttersDev($shuttersDev); $shutters->setNoOffset(1); + $shutters->setLastDrive('wiggle begin drive'); my %h = ( shuttersDev => $shutters->getShuttersDev, posValue => $shutters->getStatus, + lastDrive => 'wiggle end drive', ); if ( $shutters->getShuttersPosCmdValueNegate ) { @@ -2253,6 +2255,7 @@ sub SetCmdFn($) { my $posValue = $h->{posValue}; $shutters->setShuttersDev($shuttersDev); + $shutters->setLastDrive($h->{lastDrive}) if ( defined($h->{lastDrive}) ); return unless ( $shutters->getASC != 0 ); @@ -2929,7 +2932,8 @@ use GPUtils qw(GP_Import); BEGIN { GP_Import( qw( - ReadingsVal) + ReadingsVal + ReadingsNum) ); } @@ -2943,7 +2947,7 @@ sub getBrightness { sub getStatus { my $self = shift; - return ReadingsVal( $self->{shuttersDev}, $shutters->getPosCmd, 0 ); + return ReadingsNum( $self->{shuttersDev}, $shutters->getPosCmd, 0 ); } sub getDelayCmd {