From 9605e2b2a417bd2bb7b870e823a2065ce00ebeb6 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 6 Jan 2017 16:13:57 +0100
Subject: [PATCH] Fix problem with get_vcard command (#1447)

---
 src/mod_admin_extra.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;