1.1 --- a/examples/common/default/default.css	Mon Aug 15 10:08:27 2016 +0859
     1.2 +++ b/examples/common/default/default.css	Mon Aug 15 11:15:20 2016 +0859
     1.3 @@ -87,6 +87,9 @@
     1.4      width: 400px; height: 300px; max-width: 50em; max-height: 20em;
     1.5      padding: 0; border: 0;
     1.6  }
     1.7 +.blog_replies span.new {	/* New Article from last visit */
     1.8 +    background: white; color: red;
     1.9 +}
    1.10  p.profimg {float: left; max-width: 400px; max-height: 400px;
    1.11  	   overflow: hidden; margin-right: 1em;
    1.12  	   padding: 0; border: white 1px solid; box-shadow: 2px 3px 4px

     2.1 --- a/s4-blog.sh	Mon Aug 15 10:08:27 2016 +0859
     2.2 +++ b/s4-blog.sh	Mon Aug 15 11:15:20 2016 +0859
     2.3 @@ -143,6 +143,9 @@
     2.4    hlink="$myname?home" elink="$myname?editart"
     2.5    catlink="$myname?showattc+article_m"
     2.6    deficon="img/file-icon.png"
     2.7 +  # 2016-08-15 Newer flag introduced
     2.8 +  atime=`query "SELECT time FROM acclog
     2.9 +		WHERE tbl='blog' AND tblrowid=$rowid AND user='$user';"`
    2.10    sq $db<<EOF |
    2.11  WITH a_s AS (
    2.12    SELECT id,
    2.13 @@ -167,6 +170,7 @@
    2.14  			author) uname,
    2.15  	a.rowid,
    2.16  	s.TIME,
    2.17 +        CASE WHEN s.TIME > '$atime' THEN 'new' ELSE '' END newer,
    2.18  	hex(s.TEXT),
    2.19  	(SELECT group_concat(rowid||':'||length(bin)||':'||hex(val), ' ')
    2.20  	 FROM article_m
    2.21 @@ -177,14 +181,14 @@
    2.22       a_s s
    2.23    ON a.id=s.id;
    2.24  EOF
    2.25 -  while IFS='|' read id edit notify uid uname aid tm hte imgids; do
    2.26 +  while IFS='|' read id edit notify uid uname aid tm new hte imgids; do
    2.27      nt="<label style=\"font-size: 70%;\"><input type=\"checkbox\"
    2.28  	 name=\"notifyto\" value=\"$uid\">返信通知送信</label>"
    2.29      cat<<EOF |
    2.30  <tr id="$id">
    2.31  <td>${edit:+<a href="$elink+$edit">編集</a> }#$aid
    2.32  <a href="$hlink+$uid">$uname</a>
    2.33 -$tm
    2.34 +<span${new:+ class="new"}>$tm</span>
    2.35  ${notify:+$nt}</td><td id="$aid">`echo "$hte"|unhexize|htmlescape`
    2.36  EOF
    2.37      hreflink