From 38dfef923c1269e2bbbb3ca24d70a387579434f6 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Mon, 4 Jan 2010 19:03:36 +0000
Subject: [PATCH] Improve parsing of ejabberd_sm:get_user_info result.

SVN Revision: 2858
---
 src/web/ejabberd_web_admin.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl
index 8c291af09..ffd23b200 100644
--- a/src/web/ejabberd_web_admin.erl
+++ b/src/web/ejabberd_web_admin.erl
@@ -1703,7 +1703,10 @@ user_info(User, Server, Query, Lang) ->
 						    UserB, ServerB, 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";