From: Badlop <badlop@process-one.net>
Date: Thu, 24 Sep 2015 15:21:14 +0000 (+0200)
Subject: Fix regression introduced when code was binarized (EJAB-641)
X-Git-Tag: 15.09~16
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ee456cc2afaa223f5086c54a17fdbcb3e90aaf8d;p=ejabberd

Fix regression introduced when code was binarized (EJAB-641)
---

diff --git a/src/ejabberd_auth_external.erl b/src/ejabberd_auth_external.erl
index 9dcf3410f..4d11507ee 100644
--- a/src/ejabberd_auth_external.erl
+++ b/src/ejabberd_auth_external.erl
@@ -311,7 +311,9 @@ get_mod_last_configured(Server) ->
     end.
 
 is_configured(Host, Module) ->
-    gen_mod:is_loaded(Host, Module).
+    Os = ejabberd_config:get_local_option({modules, Host},
+					  fun(M) when is_list(M) -> M end),
+    lists:keymember(Module, 1, Os).
 
 opt_type(extauth_cache) ->
     fun (false) -> undefined;