# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1555135221 -32400
# Node ID 7e7b3b2822f6c49ae0f156b2088e18931c5c5741
# Parent  0c6e28f7a7a8c2533bf1dcfc6ba6b5a54d104d50
Remove retiring user from grp-admin.

diff -r 0c6e28f7a7a8 -r 7e7b3b2822f6 s4-funcs.sh
--- a/s4-funcs.sh	Fri Apr 12 01:31:54 2019 +0900
+++ b/s4-funcs.sh	Sat Apr 13 15:00:21 2019 +0900
@@ -2993,9 +2993,14 @@
       fi
     fi
   else
-    query "delete from grp_mem $cond;
-delete from grp_mem_s $cond;
-delete from grp_mem_m $cond;"
+    query "begin;
+	delete from grp_mem $cond;
+	delete from grp_mem_s $cond;
+	delete from grp_mem_m $cond;
+	delete from grp_adm $cond;
+	delete from grp_adm_s $cond;
+	delete from grp_adm_m $cond;
+	end;"
     action="から脱退しました。"
   fi
   smail "$(collectemail `getgroupadmins $1`)" "Member change of $1"<<-EOF