Detect correctly when vCard does not exist (#21)

diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl
index f04e6a19a018582332f1c46da49e7964d4a7d2af..fb8a5df96e8a4d5588b5bcf3a642317f08437977 100644 (file)
--- a/src/mod_admin_extra.erl
+++ b/src/mod_admin_extra.erl
@@ -976,8 +976,9 @@ get_vcard_content(User, Server, Data) ->
     JID = jlib:make_jid(User, Server, get_module_resource(Server)),
     IQ = #iq{type = get, xmlns = ?NS_VCARD},
     IQr = Module:Function(JID, JID, IQ),
-    case IQr#iq.sub_el of
-       [A1] ->
+    [A1] = IQr#iq.sub_el,
+    case A1#xmlel.children of
+       [_] ->
            case get_vcard(Data, A1) of
                [false] -> throw(error_no_value_found_in_vcard);
                ElemList -> [xml:get_tag_cdata(Elem) || Elem <- ElemList]