1.1 --- a/s4-funcs.sh	Thu Jun 11 15:22:19 2020 +0900
     1.2 +++ b/s4-funcs.sh	Thu Jun 11 17:04:33 2020 +0900
     1.3 @@ -1893,17 +1893,21 @@
     1.4    GF_STAGE="groupupdate" edittable "$formdir/grp.def" "grp" "$rowid"
     1.5    if [ -z "$STOPCLONEMSG" ]; then
     1.6      ## Setup migration menu
     1.7 +    height="10em"		## Ugly!!
     1.8      v=`fgrep -v "value=\"$worldconf\"" $worldoptionfile`
     1.9      err v=$v
    1.10      if [ -n "$v" ]; then
    1.11        migrate=$(cat<<-EOF
    1.12  	`cgi_radio grpaction migrate id="migrate"`<label
    1.13  	 for="migrate">別Worldへ移住</label>
    1.14 -	<div>
    1.15 +	<div style="height: $height;">
    1.16  	<form action="?migrategrp">
    1.17  	<p>移住先:<select name="migrateto">$nl$v$nl</select></p>
    1.18  	<p>グループや掲示板のURLが変わります。
    1.19 -	外部からリンクしている場合は飛べなくなります。</p>
    1.20 +	外部からリンクしている場合は飛べなくなります。
    1.21 +	すでに記事内相互リンクなどを多数含むグループの場合は既存グループを
    1.22 +	温存し、「グループのクローン」で
    1.23 +	メンバーを引き継いだ上でそのクローンを移住するのがお勧めです。</p>
    1.24  	<p><label>`cgi_checkbox emichk yes`確認</label></p>
    1.25  	`cgi_hidden stage migrategrp`
    1.26  	`cgi_hidden rowid $rowid`
    1.27 @@ -1916,8 +1920,8 @@
    1.28      fi
    1.29      html div 'class="foldtabs"' <<-EOF
    1.30  	`cgi_radio grpaction clone id="clone"`<label
    1.31 -	 for="clone">同一メンバーで別グループを作成する</label>
    1.32 -	<div>
    1.33 +	 for="clone">グループのクローン作成</label>
    1.34 +	<div style="height: $height;">
    1.35  	 <p>構成メンバーが同じ新規グループを作成します。</p>
    1.36  	 <table>
    1.37  	  <tr><td><a href="?groupclone+$rowid">
    1.38 @@ -1932,7 +1936,7 @@
    1.39  	</div>
    1.40  	$migrate
    1.41  	 `cgi_radio grpaction close id="x"`<label for="x" accesskey="x">×</label>
    1.42 -	<div style="height: 5em; background: transparent;"></div>
    1.43 +	<div style="height: $height; background: transparent;"></div>
    1.44  	EOF
    1.45    fi
    1.46  }
    1.47 @@ -2228,7 +2232,7 @@
    1.48  
    1.49    tf=$tmpd/title.$$ pf=$tmpd/profile.$$ bf=$tmpd/blogs.$$ sf=$tmpd/search.$$
    1.50    search_form "$search_form_args"	> $sf
    1.51 -  printf "%s さん" "$gecos"|htmlescape	> $tf
    1.52 +  printf "%s さん%s" "$gecos" "${S4WORLD:+@$S4WORLD}" |htmlescape	> $tf
    1.53    { echo "<div class=\"noprofimg\">"
    1.54      viewtable $formdir/user.def user $1
    1.55      echo "</div>"
    1.56 @@ -2527,7 +2531,7 @@
    1.57    # Note that mtime is stored only in grp_s.
    1.58  ## err LE:sql.1="$sql"
    1.59    total=`query "with x as ($sql) select count(*) from x;"`
    1.60 -  echo "${entity} 一覧" | html h2
    1.61 +  echo "${entity} 一覧" "${S4WORLD:+@$S4WORLD}" | html h2
    1.62    echo '<div class="listentry">'		# List-entry div
    1.63    # Show owner/member filter button
    1.64    METHOD=GET