From 4e5a7d404e988b39456bdc3e4cb75795fa82dc35 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 1 Oct 2011 15:48:02 +0000
Subject: [PATCH] room all readded

git-svn-id: https://svn.fhem.de/fhem/trunk@1034 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/webfrontend/pgm2/01_FHEMWEB.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/fhem/webfrontend/pgm2/01_FHEMWEB.pm b/fhem/webfrontend/pgm2/01_FHEMWEB.pm
index e41b77c25..a63c14ba9 100755
--- a/fhem/webfrontend/pgm2/01_FHEMWEB.pm
+++ b/fhem/webfrontend/pgm2/01_FHEMWEB.pm
@@ -776,7 +776,6 @@ FW_showRoom()
   pO "<div id=\"content\">";
   pO "  <table>";  # Need for equal width of subtables
 
-  my @list = ($FW_room eq "all" ? keys %defs : keys %{$FW_rooms{$FW_room}});
   my $rf = ($FW_room ? "&amp;room=$FW_room" : ""); # stay in the room
 
   my $row=1;
@@ -786,9 +785,10 @@ FW_showRoom()
 
     #################
     # Check if there is a device of this type in the room
-    my @devs = grep { $FW_rooms{$FW_room}{$_} && !IsIgnored($_) }
-                        keys %{$FW_types{$type}};
-    next if($FW_room && $FW_room ne "all" && !@devs);
+    $FW_room = "" if(!defined($FW_room));
+    my @devs = grep { ($FW_rooms{$FW_room}{$_}||$FW_room eq "all") &&
+                      !IsIgnored($_) } keys %{$FW_types{$type}};
+    next if(!@devs);
 
     pO "  <tr><td><div class=\"devType\">$type</div></td></tr>";
     pO "  <tr><td>";
@@ -879,6 +879,7 @@ FW_showRoom()
 
   # Now the weblinks
   my $buttonsDisplayed;
+  my @list = ($FW_room eq "all" ? keys %defs : keys %{$FW_rooms{$FW_room}});
   foreach my $d (sort @list) {
     next if(IsIgnored($d));
     my $type = $defs{$d}{TYPE};