73_AutoShuttersControl: change ReadingsVal to ReadingsNum for read position Reading, add setDriveReading for wiggle

git-svn-id: https://svn.fhem.de/fhem/trunk@17869 2b470e98-0d58-463d-a4d8-8e2adae1ed80

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

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 {