Fix return value of mod_shared_roster:delete_group. Current one is not compatible...

diff --git a/src/mod_shared_roster.erl b/src/mod_shared_roster.erl
index 9539dfb65cbbe133398ecb544e113272b6cd21fe..91628566020abfc01a2f357f96e54d2b02dbfb75 100644 (file)
--- a/src/mod_shared_roster.erl
+++ b/src/mod_shared_roster.erl
@@ -501,7 +501,10 @@ delete_group(Host, Group, odbc) ->
                ejabberd_odbc:sql_query_t([<<"delete from sr_user where grp='">>,
                                           SGroup, <<"';">>])
        end,
-    ejabberd_odbc:sql_transaction(Host, F).
+    case ejabberd_odbc:sql_transaction(Host, F) of
+        {atomic,{updated,_}} -> {atomic, ok};
+        Res -> Res
+    end.
 
 get_group_opts(Host, Group) ->
     get_group_opts(Host, Group,