is_user_in_group/3 must check if user belongs to given Group from Host specified...

* is_user_in_group/3 was checking if given user (passed on first parameter as
a bare jid) belonged to group of the server derived from this jid.

diff --git a/src/mod_shared_roster.erl b/src/mod_shared_roster.erl
index 35ce501d5b0fb9e403035825373c1dc114cc99f0..670745c7dbaaf59e1948fc93bb04de8fc9567b1a 100644 (file)
--- a/src/mod_shared_roster.erl
+++ b/src/mod_shared_roster.erl
@@ -646,10 +646,10 @@ get_user_displayed_groups(US) ->
            end, get_user_groups(US))),
     [Group || Group <- DisplayedGroups1, is_group_enabled(Host, Group)].
 
-is_user_in_group({_U, S} = US, Group, Host) ->
+is_user_in_group(US, Group, Host) ->
     case catch mnesia:dirty_match_object(
                 #sr_user{us=US, group_host={Group, Host}}) of
-        [] -> lists:member(US, get_group_users(S, Group));
+        [] -> lists:member(US, get_group_users(Host, Group));
        _  -> true
     end.