# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1593069957 -32400
# Node ID 985ee9a09783af137139e06e1f8c838b94d06a70
# Parent  a6462eea48be307b84b6ace21a38a5bb178cb8bc
Hyperlinks in TITLE cannot be used..

diff -r a6462eea48be -r 985ee9a09783 examples/common/default/form+dump-whead.m4.html
--- a/examples/common/default/form+dump-whead.m4.html	Thu Jun 25 15:50:16 2020 +0900
+++ b/examples/common/default/form+dump-whead.m4.html	Thu Jun 25 16:25:57 2020 +0900
@@ -1,4 +1,4 @@
-<h1 id="title">_TITLE_</h1>
+<h1 id="title">_H1_</h1>
 <h2>_FORMHEAD_</h2>
 _FORM_
 <h2>_DUMPHEAD_</h2>
diff -r a6462eea48be -r 985ee9a09783 s4-blog.sh
--- a/s4-blog.sh	Thu Jun 25 15:50:16 2020 +0900
+++ b/s4-blog.sh	Thu Jun 25 16:25:57 2020 +0900
@@ -620,6 +620,7 @@
   echo "$time [$title]@$htmlowner" > $fh
   lshandoutsub "$owner" "$@" \
       |_m4 -D_TITLE_="提出状況" \
+	   -D_H1_="提出状況" \
 	   -D_FORMHEAD_="syscmd(cat $fh)" \
 	   -D_FORM_="syscmd(cat)" -D_DUMPHEAD_= -D_DUMPTABLE_= \
 	   $layout/html.m4.html $layout/form+dump-whead.m4.html
@@ -1254,9 +1255,10 @@
       qgrp=`sqlquote "$owner"`	# Inefficient...
       grprowid=`query "SELECT rowid FROM grp WHERE gname=$qgrp;"`
     fi
-    groupmode=1 listing=$owner guide="[`linkhome $grprowid`]" GF_OWNER=$owner
+    groupmode=1 listing=$owner GF_OWNER=$owner
+    titleguide="[$owner]" guide="[`linkhome $grprowid`]" 
   else
-    usermode=1 listing=$user guide="[個人]"
+    usermode=1 listing=$user guide="[個人]" titleguide=$guide
   fi
 
   if [ -n "`getpar title`" ]; then
@@ -1292,10 +1294,12 @@
       return
     fi
   fi
-  echo "${guide}新規話題作成"	> $tmpd/title.$$
+  echo "${titleguide}新規話題作成"	> $tmpd/title.$$
+  echo "${guide}新規話題作成"		> $tmpd/h1.$$
   listblog "$listing"		> $tmpd/listblog.$$
   genform $formdir/blog.def \
       | _m4 -D_TITLE_="spaste(\`$tmpd/title.$$')" \
+	    -D_H1_="spaste(\`$tmpd/h1.$$')" \
 	    -D_FORMHEAD_="序文は簡単に詳しくはコメントに" \
 	    -D_DUMPHEAD_="これまでの蓄積" \
 	    -D_FORM_="syscmd(\`cat')" \
@@ -1387,6 +1391,7 @@
   echo "$subtitle$frozen_flag" > $tmpd/subtitle.$$
   ${BLOG_SHOW:-blog_showentry} blog $rowid "$2" \
       | _m4 -D_TITLE_="spaste(\`$tmpd/title.$$')" \
+	    -D_H1_="spaste(\`$tmpd/title.$$')" \
 	    -D_BODYCLASS_=general"${memclass:+ $memclass}" \
 	    -D_FORMHEAD_="spaste(\`$tmpd/subtitle.$$')" \
 	    -D_FORM_='' \