From 583476380ac8c65126c3316fba4e7db2e9c5759b Mon Sep 17 00:00:00 2001
From: Christophe Romain <christophe.romain@process-one.net>
Date: Tue, 9 Feb 2016 15:33:00 +0100
Subject: [PATCH] Use muc_online_room record for pattern matching

---
 src/mod_muc_admin.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mod_muc_admin.erl b/src/mod_muc_admin.erl
index c08757375..b8d7c8828 100644
--- a/src/mod_muc_admin.erl
+++ b/src/mod_muc_admin.erl
@@ -178,7 +178,8 @@ muc_online_rooms(ServerHost) ->
     MUCHost = find_host(ServerHost),
     Rooms = ets:tab2list(muc_online_room),
     lists:foldl(
-      fun({_, {Roomname, Host}, _}, Results) ->
+      fun(Room, Results) ->
+	      {Roomname, Host} = Room#muc_online_room.name_host,
 	      case MUCHost of
 		  global ->
 		      [<<Roomname/binary, "@", Host/binary>> | Results];