From: Badlop <badlop@process-one.net>
Date: Fri, 6 Jan 2017 15:13:57 +0000 (+0100)
Subject: Fix problem with get_vcard command (#1447)
X-Git-Tag: 17.01~32
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=9605e2b2a417bd2bb7b870e823a2065ce00ebeb6;p=ejabberd

Fix problem with get_vcard command (#1447)
---

diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl
index e0c5eaa63..7cef6af97 100644
--- a/src/mod_admin_extra.erl
+++ b/src/mod_admin_extra.erl
@@ -1098,8 +1098,8 @@ set_vcard(User, Host, Name, Subname, SomeContent) ->
 
 get_vcard_content(User, Server, Data) ->
     case mod_vcard:get_vcard(jid:nodeprep(User), jid:nameprep(Server)) of
-	[_|_] = Els ->
-	    case get_vcard(Data, Els) of
+	[El|_] ->
+	    case get_vcard(Data, El) of
 		[false] -> throw(error_no_value_found_in_vcard);
 		ElemList -> ?DEBUG("ELS ~p", [ElemList]), [fxml:get_tag_cdata(Elem) || Elem <- ElemList]
 	    end;