From 42beed0bacb2bd79eb35a051d0fa2c47e9dfc919 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 26 May 2014 12:14:15 +0000
Subject: [PATCH] FHEMWEB: speedup for sortRooms (Forum #23921)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5974 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/01_FHEMWEB.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm
index 88a0df158..02ba3be33 100755
--- a/fhem/FHEM/01_FHEMWEB.pm
+++ b/fhem/FHEM/01_FHEMWEB.pm
@@ -1087,8 +1087,9 @@ FW_roomOverview($)
   my @rlist;
   if(AttrVal($FW_wname, "sortRooms", "")) { # Slow!
     my @sortBy = split( " ", AttrVal( $FW_wname, "sortRooms", "" ) );
-    @rlist = sort { FW_roomIdx(@sortBy,$a) cmp
-                    FW_roomIdx(@sortBy,$b) } keys %FW_rooms;
+    my %sHash;                                                       
+    map { $sHash{$_} = FW_roomIdx(@sortBy,$_) } keys %FW_rooms;
+    @rlist = sort { $sHash{$a} cmp $sHash{$b} } keys %FW_rooms;
 
   } else {
     @rlist = sort keys %FW_rooms;