From 01a3c1c2e11f6c7fc3ee30ac2876a0bc993dd405 Mon Sep 17 00:00:00 2001
From: vesvalo <vesvalo@mail.ru>
Date: Thu, 21 Aug 2014 15:13:43 +0400
Subject: [PATCH] Fix return value of mod_shared_roster:delete_group. Current
 one is not compatible with mod_admin_extra.

---
 src/mod_shared_roster.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mod_shared_roster.erl b/src/mod_shared_roster.erl
index 9539dfb65..916285660 100644
--- 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,