From: genric <genrich.ivaska@epfl.ch>
Date: Tue, 5 Apr 2016 12:13:28 +0000 (+0200)
Subject: Fix mod_muc_admin:get_room_options
X-Git-Tag: 16.04~51^2~1^2
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=be7f65da053cae8c641ecfa7349fec8e46c750b9;p=ejabberd

Fix mod_muc_admin:get_room_options

Fix mod_muc_admin:get_room_options to match the ejabberd_commands result spec.
---

diff --git a/src/mod_muc_admin.erl b/src/mod_muc_admin.erl
index 7c6e84c45..037f26006 100644
--- a/src/mod_muc_admin.erl
+++ b/src/mod_muc_admin.erl
@@ -824,8 +824,12 @@ get_room_options(Pid) ->
     get_options(Config).
 
 get_options(Config) ->
-    Fields = record_info(fields, config),
-    [config | Values] = tuple_to_list(Config),
+    Fields = [jlib:atom_to_binary(Field) || Field <- record_info(fields, config)],
+    [config | ValuesRaw] = tuple_to_list(Config),
+    Values = lists:map(fun(V) when is_atom(V) -> jlib:atom_to_binary(V);
+                          (V) when is_integer(V) -> jlib:integer_to_binary(V);
+                          (V) when is_tuple(V); is_list(V) -> list_to_binary(hd(io_lib:format("~w", [V])));
+                          (V) -> V end, ValuesRaw),
     lists:zip(Fields, Values).
 
 %%----------------------------