Improve parsing of ejabberd_sm:get_user_info result.

SVN Revision: 2857

diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl
index 0a66b1576592fdbab4e4f4d3cd7595744de5a4a4..06890f142ec966cc39695b85fbe95dbdbd231ad2 100644 (file)
--- a/src/web/ejabberd_web_admin.erl
+++ b/src/web/ejabberd_web_admin.erl
@@ -1670,7 +1670,10 @@ user_info(User, Server, Query, Lang) ->
                                                    User, Server, R) of
                                                 offline ->
                                                     "";
-                                                [{node, Node}, {conn, Conn}, {ip, {IP, Port}}] ->
+                                                Info when is_list(Info) ->
+                                                    Node = proplists:get_value(node, Info),
+                                                    Conn = proplists:get_value(conn, Info),
+                                                    {IP, Port} = proplists:get_value(ip, Info),
                                                     ConnS = case Conn of
                                                                 c2s -> "plain";
                                                                 c2s_tls -> "tls";