Merge pull request #2599 from gardenia/master

Eliminate some repeated SQL queries [Issue #1656]

src/mod_shared_roster.erl

@@ -303,10 +303,10 @@ get_jid_info({Subscription, Ask, Groups}, User, Server,
     US1 = {U1, S1},
     DisplayedGroups = get_user_displayed_groups(US),
     SRUsers = lists:foldl(fun (Group, Acc1) ->
+				  GroupName = get_group_name(LServer, Group),
 				  lists:foldl(fun (User1, Acc2) ->
 						      dict:append(User1,
-								  get_group_name(LServer,
+								  GroupName,
-										 Group),
 								  Acc2)
 					      end,
 					      Acc1,
@@ -451,18 +451,24 @@ get_group_name(Host1, Group1) ->
 
 %% Get list of names of groups that have @all@/@online@/etc in the memberlist
 get_special_users_groups(Host) ->
-    lists:filter(fun (Group) ->
+    lists:filtermap(fun ({Group, Opts}) ->
-			 get_group_opt(Host, Group, all_users, false) orelse
+             case proplists:get_value(all_users, Opts, false) orelse
-			   get_group_opt(Host, Group, online_users, false)
+                  proplists:get_value(online_users, Opts, false) of
-		 end,
+               true -> {true, Group};
-		 list_groups(Host)).
+               false -> false
+             end
+         end,
+         groups_with_opts(Host)).
 
 %% Get list of names of groups that have @online@ in the memberlist
 get_special_users_groups_online(Host) ->
-    lists:filter(fun (Group) ->
+    lists:filtermap(fun ({Group, Opts}) ->
-			 get_group_opt(Host, Group, online_users, false)
+             case proplists:get_value(online_users, Opts, false) of
-		 end,
+               true -> {true, Group};
-		 list_groups(Host)).
+               false -> false
+             end
+         end,
+         groups_with_opts(Host)).
 
 %% Given two lists of groupnames and their options,
 %% return the list of displayed groups to the second list