fix run partyMode Routine then partyMode Reading Value equevalent partyMode set Command

This commit is contained in:
Marko Oldenburg 2019-02-11 21:26:42 +01:00
parent 34af80d48c
commit 28499386e3

View File

@ -41,7 +41,7 @@ package main;
use strict;
use warnings;
my $version = '0.4.0.3';
my $version = '0.4.0.4';
sub AutoShuttersControl_Initialize($) {
my ($hash) = @_;
@ -495,7 +495,8 @@ sub Set($$@) {
}
elsif ( lc $cmd eq 'partymode' ) {
return "usage: $cmd" if ( @args > 1 );
readingsSingleUpdate( $hash, $cmd, join( ' ', @args ), 1 );
readingsSingleUpdate( $hash, $cmd, join( ' ', @args ), 1 )
if ( join( ' ', @args ) ne ReadingsVal($name,'partyMode',0) );
}
elsif ( lc $cmd eq 'hardlockout' ) {
return "usage: $cmd" if ( @args > 1 );