From cb92a29a2ba8342ce8dd58797d8cbe8cc82422b6 Mon Sep 17 00:00:00 2001
From: LeonGaultier <LeonGaultier@users.noreply.github.com>
Date: Mon, 25 May 2020 11:22:29 +0000
Subject: [PATCH] 73_AutoShuttersControl: fix Can't locate object method

git-svn-id: https://svn.fhem.de/fhem/trunk@22028 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED                        |  1 +
 fhem/FHEM/73_AutoShuttersControl.pm | 40 +++++++++++++++++++----------
 2 files changed, 28 insertions(+), 13 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index a5aad31b4..fd8526145 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # 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.
+ - bugfix:  73_AutoShuttersControl: fix Can't locate object method
  - new:     60_Watches: little helper module for some kind of watches or
                         digital text display, Forum: #93454
  - changed: 57_SSCal: changes according to PBP, switch to packages, minor fixes
diff --git a/fhem/FHEM/73_AutoShuttersControl.pm b/fhem/FHEM/73_AutoShuttersControl.pm
index 7609c36c5..78b16b46a 100644
--- a/fhem/FHEM/73_AutoShuttersControl.pm
+++ b/fhem/FHEM/73_AutoShuttersControl.pm
@@ -2151,7 +2151,10 @@ sub EventProcessingShadingBrightness {
     my $name = $hash->{NAME};
     $shutters->setShuttersDev($shuttersDev);
     my $reading = $shutters->getBrightnessReading;
-    my $outTemp = ( $shutters->getOutTemp != -100 ? $shutters->getOutTemp : $ascDev->getOutTemp );
+    my $outTemp =
+      (   $shutters->getOutTemp != -100
+        ? $shutters->getOutTemp
+        : $ascDev->getOutTemp );
 
     Log3( $name, 4,
         "AutoShuttersControl ($shuttersDev) - EventProcessingShadingBrightness"
@@ -2222,16 +2225,16 @@ sub EventProcessingTwilightDevice {
     );
 
     if ( $events =~ m{(azimuth|elevation|SunAz|SunAlt):\s(\d+.\d+)}xms ) {
-        my $name    = $device;
+        my $name = $device;
         my ( $azimuth, $elevation );
         my $outTemp = $ascDev->getOutTemp;
 
-        $azimuth    = $2 if ( $1 eq 'azimuth'   || $1 eq 'SunAz' );
-        $elevation  = $2 if ( $1 eq 'elevation' || $1 eq 'SunAlt' );
+        $azimuth   = $2 if ( $1 eq 'azimuth'   || $1 eq 'SunAz' );
+        $elevation = $2 if ( $1 eq 'elevation' || $1 eq 'SunAlt' );
 
-        $azimuth    = $ascDev->getAzimuth
+        $azimuth = $ascDev->getAzimuth
           if ( !defined($azimuth) && !$azimuth );
-        $elevation  = $ascDev->getElevation
+        $elevation = $ascDev->getElevation
           if ( !defined($elevation) && !$elevation );
 
         ASC_Debug( 'EventProcessingTwilightDevice: '
@@ -2343,10 +2346,10 @@ sub ShadingProcessing {
           . $shuttersDev
           . " Nach dem return" );
 
-    my $getShadingPos       = $shutters->getShadingPos;
-    my $getStatus           = $shutters->getStatus;
-    my $oldShadingStatus    = $shutters->getShadingStatus;
-    my $homemode            = $shutters->getHomemode;
+    my $getShadingPos    = $shutters->getShadingPos;
+    my $getStatus        = $shutters->getStatus;
+    my $oldShadingStatus = $shutters->getShadingStatus;
+    my $homemode         = $shutters->getHomemode;
 
     ASC_Debug( 'ShadingProcessing: '
           . $shutters->getShuttersDev
@@ -2776,9 +2779,11 @@ sub EventProcessingExternalTriggerDevice {
         $shutters->setLastDrive('external trigger device inactive');
         $shutters->setNoDelay(1);
         $shutters->setExternalTriggerState(1);
-        ShuttersCommandSet( $hash, $shuttersDev,
+        ShuttersCommandSet(
+            $hash,
+            $shuttersDev,
             (
-              $shutters->getIsDay
+                  $shutters->getIsDay
                 ? $triggerPosInactive
                 : $shutters->getClosedPos
             )
@@ -5002,6 +5007,15 @@ sub setAdvDelay {
     return;
 }
 
+sub getHomemode {
+    my $self = shift;
+
+    my $homemode = $shutters->getRoommatesStatus;
+    $homemode = $ascDev->getResidentsStatus
+      if ( $homemode eq 'none' );
+    return $homemode;
+}
+
 sub getAdvDelay {
     my $self = shift;
 
@@ -8440,7 +8454,7 @@ sub getBlockAscDrivesAfterManual {
   ],
   "release_status": "testing",
   "license": "GPL_2",
-  "version": "v0.8.30",
+  "version": "v0.8.31",
   "author": [
     "Marko Oldenburg <leongaultier@gmail.com>"
   ],