# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1476523997 -32374
# Node ID e8f1847eebca575e8a23e6c58b7921b96a33cb85
# Parent  4188f5b3fd675e90b360535b61b4ac28e5a52a00
Add link to group name in joingrpadmit report screen

diff -r 4188f5b3fd67 -r e8f1847eebca s4-funcs.sh
--- a/s4-funcs.sh	Sat Oct 15 16:22:39 2016 +0859
+++ b/s4-funcs.sh	Sat Oct 15 18:32:51 2016 +0859
@@ -2480,7 +2480,7 @@
   gid=$(query "select rowid from grp where gname=`sqlquote $t_grp`;")
   rcpts="`getgroupadminmails $t_grp` $user"
   err admit: msgdir=$msgdir, rcpts="["$rcpts"]"
-  body="グループ $t_grp
+  body="グループ <a href=\"?grp+$gid\">$t_grp</a>
 に
 $t_usr
 `[ x$1 = xyes ] && echo 'を追加' || echo 'の解除操作を'`