# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1477062935 -32374
# Node ID a120ba2d719bbbe43c6703b2e8f1185c01d0f8d1
# Parent  64eabfa2e69f9c499ede8ddfa375cd65700ff5d1
Show link to the beginning of page at the bottom of page.

diff -r 64eabfa2e69f -r a120ba2d719b s4-blog.sh
--- a/s4-blog.sh	Sat Oct 22 00:08:49 2016 +0859
+++ b/s4-blog.sh	Sat Oct 22 00:15:09 2016 +0859
@@ -100,10 +100,10 @@
     *)		notifyto="" ;;
   esac
 
-  err "SELECT id from $tbl where rowid=$rowid"
+  # err "SELECT id from $tbl where rowid=$rowid"
   id=`query "select id from $tbl where rowid=$rowid;"`
-err id=$id
-err "select val from $ts where key='title' and id='$id';"
+  #err id=$id
+  #err "select val from $ts where key='title' and id='$id';"
 
 
   #(1)Display root article
@@ -278,7 +278,8 @@
   cat<<-EOF
 	</table> <!-- end of s4-blog:blog_showentry() main table -->
 	<p class="update_link"><a
-	 href="?reload/$rowid">再読込</a></p>
+	 href="?reload/$rowid">再読込</a> / <a
+	 href="#title">先頭へ</a></p>
 	EOF
   query<<-EOF
 	WITH mrt AS (