Mercurial > hgrepos > hgweb.cgi > s4
changeset 838:985ee9a09783
Hyperlinks in TITLE cannot be used..
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Thu, 25 Jun 2020 16:25:57 +0900 |
parents | a6462eea48be |
children | 388cbc079ba5 |
files | examples/common/default/form+dump-whead.m4.html s4-blog.sh |
diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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_='' \