Fix problem with get_vcard command (#1447)

diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl
index e0c5eaa633a13ea037e4f21d03c8e4b5cc6e0f21..7cef6af979a9f2cc4746875ab152b8a86c64f6a8 100644 (file)
--- 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;