Handle ets_cache return value in shared roster get_group_opts (#3296)

src/mod_shared_roster.erl

@@ -448,7 +448,7 @@ delete_group(Host, Group) ->
 get_group_opts(Host1, Group1) ->
     {Host, Group} = split_grouphost(Host1, Group1),
     Mod = gen_mod:db_mod(Host, ?MODULE),
-    case use_cache(Mod, Host) of
+    Res = case use_cache(Mod, Host) of
 	true ->
 	    ets_cache:lookup(
 		?GROUP_OPTS_CACHE, {Host, Group},
@@ -460,6 +460,10 @@ get_group_opts(Host1, Group1) ->
 		end);
 	false ->
 	    Mod:get_group_opts(Host, Group)
+    end,
+    case Res of
+        {ok, Opts} -> Opts;
+        error -> error
     end.
 
 set_group_opts(Host, Group, Opts) ->

src/mod_shared_roster_mnesia.erl

@@ -87,7 +87,7 @@ delete_group(Host, Group) ->
 
 get_group_opts(Host, Group) ->
     case catch mnesia:dirty_read(sr_group, {Group, Host}) of
-	[#sr_group{opts = Opts}] -> Opts;
+	[#sr_group{opts = Opts}] -> {ok, Opts};
 	_ -> error
     end.
 

src/mod_shared_roster_sql.erl

@@ -94,7 +94,7 @@ get_group_opts(Host, Group) ->
 		 ?SQL("select @(opts)s from sr_group"
                       " where name=%(Group)s and %(Host)H")) of
 	{selected, [{SOpts}]} ->
-	    mod_shared_roster:opts_to_binary(ejabberd_sql:decode_term(SOpts));
+            {ok, mod_shared_roster:opts_to_binary(ejabberd_sql:decode_term(SOpts))};
 	_ -> error
     end.