aboutsummaryrefslogtreecommitdiff
path: root/src/mod_shared_roster.erl
diff options
context:
space:
mode:
authorBadlop <badlop@process-one.net>2015-06-04 15:47:02 +0200
committerBadlop <badlop@process-one.net>2015-06-04 15:47:02 +0200
commit357ff6c8f791781553a74e5ac4268546aa4efb2e (patch)
tree9a775d2a13c61c1b0b7928f389dc3a9198f405c0 /src/mod_shared_roster.erl
parentUse https instead of git in rebar file for dependencies url (#589) (diff)
Fix bug introduced in commit b88fa6f6174
Diffstat (limited to 'src/mod_shared_roster.erl')
-rw-r--r--src/mod_shared_roster.erl9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/mod_shared_roster.erl b/src/mod_shared_roster.erl
index ac285bfd9..83ecade91 100644
--- a/src/mod_shared_roster.erl
+++ b/src/mod_shared_roster.erl
@@ -985,11 +985,11 @@ push_user_to_displayed(LUser, LServer, Group, Host, Subscription, DisplayedToGro
GroupName = proplists:get_value(name, GroupOpts, Group),
[push_user_to_group(LUser, LServer, GroupD, Host,
GroupName, Subscription)
- || {GroupD, _Opts} <- DisplayedToGroupsOpts].
+ || GroupD <- DisplayedToGroupsOpts].
broadcast_user_to_displayed(LUser, LServer, Host, Subscription, DisplayedToGroupsOpts) ->
[broadcast_user_to_group(LUser, LServer, GroupD, Host, Subscription)
- || {GroupD, _Opts} <- DisplayedToGroupsOpts].
+ || GroupD <- DisplayedToGroupsOpts].
push_user_to_group(LUser, LServer, Group, Host,
GroupName, Subscription) ->
@@ -1012,12 +1012,13 @@ broadcast_user_to_group(LUser, LServer, Group, Host, Subscription) ->
%% Get list of groups to which this group is displayed
displayed_to_groups(GroupName, LServer) ->
GroupsOpts = groups_with_opts(LServer),
- lists:filter(fun ({_Group, Opts}) ->
+ Gs = lists:filter(fun ({_Group, Opts}) ->
lists:member(GroupName,
proplists:get_value(displayed_groups,
Opts, []))
end,
- GroupsOpts).
+ GroupsOpts),
+ [Name || {Name, _} <- Gs].
push_item(User, Server, Item) ->
Stanza = jlib:iq_to_xml(#iq{type = set,