--- a/s4-funcs.sh	Tue Aug 02 14:18:25 2016 +0859
+++ b/s4-funcs.sh	Tue Aug 02 14:43:20 2016 +0859
@@ -453,18 +453,6 @@
 )
 gecos() (
   u=`sqlquote ${1:-$user}`
-  #gecos=`query "select val from user_s where name='$u' and key='gecos';"`
-  # sql="select case when (select name from user where name=$u) is not null
-  # 		then coalesce(
-  # 		  (select val from user_s where name=$u and key='gecos'),
-  # 		  $u)
-  # 		when (select gname from grp where gname=$u) is not null
-  # 		then coalesce(
-  # 		  (select val from grp_s where gname=$u and key='gecos'),
-  # 		  $u)
-  # 		else $u
-  # 		end;"
-  #query "$sql"
   query "select gecos from gecoses where name=$u;"
 )
 setpar() {
@@ -1167,15 +1155,6 @@
       em=`query "select val from user_m where name='$e' and key='email';"`
       [ -n "$em" ] && echo "$em" || echo "$e"
     else
- #    sql="with recursive allmem as
- #        (select gname,val from grp_m where gname='$1'
- #         union all select grp_m.gname,grp_m.val from grp_m,allmem
- #         where allmem.val=grp_m.gname)
- # select coalesce(b.val,a.val)
- #        from allmem a left join grp_mem_s b
- #        on a.gname=b.gname and a.val=b.user and b.key='email'
- # where a.val in (select name from user) limit 10000;"
-      # tmp tmp tmp tmp tmp tmp tmp
       qgrp=`sqlquote "$e"`
       if [ -z "$TEAM" ]; then
 	gmem="grp_mem"
@@ -1800,21 +1779,6 @@
 	 WHERE gname='$1' AND key='team'$cond;"
 }
 showgroup() { # $1=group-rowid
-#   gname=`getpar gname`
-#   if [ -n "$gname" ]; then
-#     err UPdating/Removing of group:::::::
-#     # See ALSO same job in groupman()
-#     newgname=`echo "$gname"|tr -d '\"'"'"`
-#     ###newgname=$gname
-# err gname=$gname newgname=$newgname
-#     if [ x"$newgname" != x"$gname" ]; then
-#       err NewGNAME: gname=$newgname
-#       gname=$newgname
-#       echo "使用禁止文字を除去し $gname としました。" | html p
-#       replpar gname string "$gname"
-#     fi
-#     par2table $formdir/grp.def
-#   fi
   if [ -z "$1" ]; then
     grid=`getpar grid`
     grid=${grid%%[!0-9]*}