From e94c8c17fcf68c51792044ce7ff1be99fd9ba071 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 23 Jul 2011 11:33:38 +0000
Subject: [PATCH] Status bug for uppercase definitions

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@955 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/10_FS20.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/FHEM/10_FS20.pm b/FHEM/10_FS20.pm
index 24b7d3bcf..bf3ad9ed8 100755
--- a/FHEM/10_FS20.pm
+++ b/FHEM/10_FS20.pm
@@ -241,9 +241,9 @@ FS20_Set($@)
   # Look for all devices with the same code, and set state, timestamp
   my $code = "$hash->{XMIT} $hash->{BTN}";
   my $tn = TimeNow();
-  foreach my $n (keys %{ $modules{FS20}{defptr}{$code} }) {
-
-    my $lh = $modules{FS20}{defptr}{$code}{$n};
+  my $defptr = $modules{FS20}{defptr};
+  foreach my $n (keys %{ $defptr->{$code} }) {
+    my $lh = $defptr->{$code}{$n};
     $lh->{CHANGED}[0] = $v;
     $lh->{STATE} = $v;
     $lh->{READINGS}{state}{TIME} = $tn;
@@ -280,10 +280,9 @@ FS20_Define($$)
   $hash->{XMIT} = lc($housecode);
   $hash->{BTN}  = lc($btncode);
 
-  my $code = "$housecode $btncode";
+  my $code = lc("$housecode $btncode");
   my $ncode = 1;
   my $name = $a[0];
-
   $hash->{CODE}{$ncode++} = $code;
   $modules{FS20}{defptr}{$code}{$name}   = $hash;