--- a/s4-blog.sh	Mon Jun 13 08:36:49 2016 +0859
+++ b/s4-blog.sh	Mon Jun 13 12:28:00 2016 +0859
@@ -101,7 +101,6 @@
 
   #(1)Display root article
   cat<<EOF
-<form class="replyblog" action="$myname?replyblog+${rowid}#bottom" method="POST" enctype="multipart/form-data">
 <table class="bloghead">
 EOF
 
@@ -251,18 +250,23 @@
 <input type="submit" value="送信">
 <input type="reset" value="リセット"></div></div>
 '
-  echo '</table>'
-  
-  $iswritable && cat<<EOF
-<div class="blogcomment">
-<!-- <p>コメント記入</p> -->
-<input type="hidden" name="blogid" value="$id">
-<input type="hidden" name="stage" value="replyblog">
-<input type="hidden" name="serial" value="$serial">
-$textform
-</div>
-EOF
-  echo "</form><p id=\"bottom\"></p>"
+  cat<<-EOF
+	</table>
+	<p class="update_link"><a
+	 href="?reload/$rowid">再読込</a></p>
+	EOF
+  $iswritable && cat<<-EOF
+	<div class="blogcomment">
+	<div class="fold">
+	<input type="checkbox" id="cmt" checked><label for="cmt"
+	>コメントする</label>
+	<div>
+	`GF_ACTION="?replyblog+${rowid}#bottom" \
+	 GF_ARGS="<input type=\"hidden\" name=\"blogid\" value=\"$id\">" \
+	 genform $formdir/article.def`
+	</div></div></div>
+	<p id="bottom"></p>
+	EOF
   # Record access log
   acclog blog $rowid
 }