--- a/s4-blog.sh	Mon Aug 15 10:08:27 2016 +0859
+++ b/s4-blog.sh	Mon Aug 15 11:15:20 2016 +0859
@@ -143,6 +143,9 @@
   hlink="$myname?home" elink="$myname?editart"
   catlink="$myname?showattc+article_m"
   deficon="img/file-icon.png"
+  # 2016-08-15 Newer flag introduced
+  atime=`query "SELECT time FROM acclog
+		WHERE tbl='blog' AND tblrowid=$rowid AND user='$user';"`
   sq $db<<EOF |
 WITH a_s AS (
   SELECT id,
@@ -167,6 +170,7 @@
 			author) uname,
 	a.rowid,
 	s.TIME,
+        CASE WHEN s.TIME > '$atime' THEN 'new' ELSE '' END newer,
 	hex(s.TEXT),
 	(SELECT group_concat(rowid||':'||length(bin)||':'||hex(val), ' ')
 	 FROM article_m
@@ -177,14 +181,14 @@
      a_s s
   ON a.id=s.id;
 EOF
-  while IFS='|' read id edit notify uid uname aid tm hte imgids; do
+  while IFS='|' read id edit notify uid uname aid tm new hte imgids; do
     nt="<label style=\"font-size: 70%;\"><input type=\"checkbox\"
 	 name=\"notifyto\" value=\"$uid\">返信通知送信</label>"
     cat<<EOF |
 <tr id="$id">
 <td>${edit:+<a href="$elink+$edit">編集</a> }#$aid
 <a href="$hlink+$uid">$uname</a>
-$tm
+<span${new:+ class="new"}>$tm</span>
 ${notify:+$nt}</td><td id="$aid">`echo "$hte"|unhexize|htmlescape`
 EOF
     hreflink