From 957662cd2b680b1152d8c99f923e4777ed5751df Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Sat, 27 Apr 2019 20:58:17 +0200
Subject: [PATCH] fix partyMode drive shutters with partyMode off

---
 73_AutoShuttersControl.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm
index 74846f0..7189562 100644
--- a/73_AutoShuttersControl.pm
+++ b/73_AutoShuttersControl.pm
@@ -44,7 +44,7 @@ use strict;
 use warnings;
 use FHEM::Meta;
 
-my $version = '0.6.0';
+my $version = '0.6.1';
 
 sub AutoShuttersControl_Initialize($) {
     my ($hash) = @_;
@@ -1857,8 +1857,11 @@ sub EventProcessingPartyMode($) {
     my ($hash) = @_;
     my $name = $hash->{NAME};
 
-    foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) {
+    foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) {    
         $shutters->setShuttersDev($shuttersDev);
+        next
+          if ( $shutters->getPartyMode eq 'off' );
+        
         if (    not IsDay($shuttersDev)
             and $shutters->getModeDown ne 'off'
             and IsAfterShuttersManualBlocking($shuttersDev) )
@@ -3873,7 +3876,7 @@ sub getComfortOpenPos {
 
 sub getPartyMode {
     my $self = shift;
-
+    print 'PartyMode Shutter: ' . AttrVal( $self->{shuttersDev}, 'ASC_Partymode', 'off' ) . "\n";
     return AttrVal( $self->{shuttersDev}, 'ASC_Partymode', 'off' );
 }
 
@@ -4325,7 +4328,8 @@ sub getPartyMode {
     my $self = shift;
     my $name = $self->{name};
 
-    return ReadingsVal( $name, 'partyMode', 'none' );
+    print 'PartyMode ASC: ' . ReadingsVal( $name, 'partyMode', 'off' ) . "\n";
+    return ReadingsVal( $name, 'partyMode', 'off' );
 }
 
 sub getHardLockOut {