From 34c4c2e60accb0aae0e9d2c92f025efa3f5d13f9 Mon Sep 17 00:00:00 2001
From: deespe <>
Date: Mon, 22 Aug 2016 21:57:52 +0000
Subject: [PATCH] 98_Hyperion: devStateIcon with dim value for mode rgb

git-svn-id: https://svn.fhem.de/fhem/trunk@12060 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_Hyperion.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/98_Hyperion.pm b/fhem/FHEM/98_Hyperion.pm
index 7d06deab4..c2c8f69c9 100644
--- a/fhem/FHEM/98_Hyperion.pm
+++ b/fhem/FHEM/98_Hyperion.pm
@@ -17,6 +17,8 @@ use Color;
 use JSON;
 use SetExtensions;
 
+sub Hyperion_Call($$$){};
+
 my %Hyperion_sets =
 (
   "adjustRed"         => "textField",
@@ -806,10 +808,12 @@ sub Hyperion_devStateIcon($;$)
   return undef if (!$hash);
   my $name = $hash->{NAME};
   my $rgb = ReadingsVal($name,"rgb","");
+  my $dim = ReadingsVal($name,"dim",10);
+  my $ico = (int($dim / 10) * 10 < 10) ? 10 : int($dim / 10) * 10;
   return ".*:off:toggle" if (Value($name) eq "off");
   return ".*:light_exclamation" if (Value($name) eq "ERROR");
   return ".*:light_question" if (Value($name) eq "Initialized");
-  return ".*:on@#".$rgb.":toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "rgb");
+  return ".*:light_light_dim_$ico@#".$rgb.":toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "rgb");
   return ".*:light_led_stripe_rgb@#FFFF00:toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "effect");
   return ".*:it_television@#0000FF:toggle" if (Value($name) ne "off" && ReadingsVal($name,"mode","") eq "clearall");
 }