From a39083219bc79af391c57f4e8e6faa5a0287336d Mon Sep 17 00:00:00 2001 From: justme1968 Date: Tue, 23 Dec 2014 18:26:56 +0000 Subject: [PATCH] 31_HUEDevice.pm: update lights in group after set group ... git-svn-id: https://svn.fhem.de/fhem/trunk@7315 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/31_HUEDevice.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/31_HUEDevice.pm b/fhem/FHEM/31_HUEDevice.pm index 4a9cd69b9..bef0fbdff 100644 --- a/fhem/FHEM/31_HUEDevice.pm +++ b/fhem/FHEM/31_HUEDevice.pm @@ -481,6 +481,7 @@ HUEDevice_Set($@) if( scalar keys %obj ) { my $result; if( $hash->{helper}->{group} ) { + $hash->{helper}->{update} = 1; $result = HUEDevice_ReadFromServer($hash,$hash->{ID}."/action",\%obj); } else { $result = HUEDevice_ReadFromServer($hash,$hash->{ID}."/state",\%obj); @@ -765,20 +766,23 @@ HUEDevice_Parse($$) my $name = $hash->{NAME}; Log3 $name, 4, "parse status message for $name"; + #Log3 $name, 5, Dumper $result; $hash->{name} = $result->{'name'}; $hash->{type} = $result->{'type'}; if( $hash->{helper}->{group} ) { - $hash->{lights} = join( ",", @{$result->{lights}} ); + $hash->{lights} = join( ",", @{$result->{lights}} ) if( $result->{lights} ); foreach my $id ( @{$result->{lights}} ) { my $code = $hash->{IODev}->{NAME} ."-". $id; my $chash = $modules{HUEDevice}{defptr}{$code}; - #HUEDevice_GetUpdate($chash) if( defined($chash) ); + HUEDevice_GetUpdate($chash) if( defined($chash) && defined($hash->{helper}->{update}) ); } + delete $hash->{helper}->{update}; + return undef; }