From 6c59336b8c2d278facc8c683fa61e82d2767b986 Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Sat, 12 Nov 2016 16:06:27 +0000
Subject: [PATCH] 31_HUEDevice.pm: allow transitiontime in set scene

git-svn-id: https://svn.fhem.de/fhem/trunk@12551 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/31_HUEDevice.pm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/31_HUEDevice.pm b/fhem/FHEM/31_HUEDevice.pm
index e1d4d3079..0fa84b6a1 100644
--- a/fhem/FHEM/31_HUEDevice.pm
+++ b/fhem/FHEM/31_HUEDevice.pm
@@ -606,9 +606,23 @@ HUEDevice_Set($@)
       return fhem( "set $hash->{IODev}{NAME} deletescene $aa[1]" );
 
     } elsif( $cmd eq 'scene' ) {
-      return "usage: scene <id>" if( @args != 1 );
+      return "usage: scene <id>" if( @args < 1 );
 
-      my $obj = { 'scene' => $aa[1] };
+      my $obj = {};
+      if( (my $joined = join(" ", @aa)) =~ /:/ ) {
+        my @cmds = split(":", $joined);
+        for( my $i = 0; $i <= $#cmds; ++$i ) {
+          my @parts = split(" ", $cmds[$i]);
+
+          if( $parts[0] eq 'scene' ) {
+            $obj->{'scene'} = $parts[1];
+          } else {
+            HUEDevice_SetParam($name, $obj, @parts );
+          }
+        }
+      } else {
+        $obj->{scene} = $aa[1];
+      }
       $hash->{helper}->{update} = 1;
       my $result = HUEDevice_ReadFromServer($hash,"$hash->{ID}/action",$obj);
       return $result->{error}{description} if( $result->{error} );