From 94761ff31e73a1f326cecbca981820a8350042a6 Mon Sep 17 00:00:00 2001 From: Badlop Date: Fri, 3 Apr 2015 12:16:11 +0200 Subject: Improve srg_get_info result format (processone/ejabberd-contrib#92) --- src/mod_admin_extra.erl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl index 972202996..043b6f3c1 100644 --- a/src/mod_admin_extra.erl +++ b/src/mod_admin_extra.erl @@ -1302,7 +1302,7 @@ private_set2(Username, Host, Xml) -> srg_create(Group, Host, Name, Description, Display) -> DisplayList = case Display of - [] -> []; + <<>> -> []; _ -> ejabberd_regexp:split(Display, <<"\\\\n">>) end, Opts = [{name, Name}, @@ -1323,7 +1323,12 @@ srg_get_info(Group, Host) -> Os when is_list(Os) -> Os; error -> [] end, - [{jlib:atom_to_binary(Title), Value} || {Title, Value} <- Opts]. + [{jlib:atom_to_binary(Title), + io_lib:format("~p", [btl(Value)])} || {Title, Value} <- Opts]. + +btl([]) -> []; +btl([B|L]) -> [btl(B)|btl(L)]; +btl(B) -> binary_to_list(B). srg_get_members(Group, Host) -> Members = mod_shared_roster:get_group_explicit_users(Host,Group), -- cgit v1.2.3