1.1 --- a/s4-funcs.sh	Fri Jun 14 09:01:51 2019 +0900
     1.2 +++ b/s4-funcs.sh	Fri Jun 14 09:27:11 2019 +0900
     1.3 @@ -417,6 +417,12 @@
     1.4    err isgrpowner: $sql
     1.5    test -n "`query $sql`"
     1.6  )
     1.7 +isgrpownerbygid() (
     1.8 +  # $1=user, $2=group-rowid
     1.9 +  sql="select user from grp_adm where gname=(select gname from grp where rowid=$2) and user='$1';"
    1.10 +  err isgrpownerbygid: $sql
    1.11 +  test -n "`query $sql`"
    1.12 +)
    1.13  getgroupadminmails() {
    1.14    # $1=group
    1.15    for i in $(getgroupadmins $1); do
    1.16 @@ -1551,6 +1557,10 @@
    1.17      echo "無効なグループIDです($1)" | html p
    1.18      return
    1.19    fi
    1.20 +  if ! isgrpownerbygid "$user" "$rid"; then
    1.21 +     echo "グループ管理者のみがクローン可能です" | html p
    1.22 +     return
    1.23 +  fi
    1.24    i=0
    1.25    while true; do
    1.26      copy="-copy$i"