1.1 --- a/examples/sns/form/user.def	Thu Sep 07 08:27:37 2017 +0859
     1.2 +++ b/examples/sns/form/user.def	Thu Sep 07 12:11:45 2017 +0859
     1.3 @@ -7,3 +7,5 @@
     1.4  プロフィール画像:profimg:m:image:maxlength="400K"
     1.5  ひとこと:desc:s:textarea:maxlength="1024"
     1.6  履歴書(4MBまで):profpdf:m:document:maxlength="4M"
     1.7 +書込:wtime:s:stamp:
     1.8 +訪問:login:s:stamp:

     2.1 --- a/s4-blog.sh	Thu Sep 07 08:27:37 2017 +0859
     2.2 +++ b/s4-blog.sh	Thu Sep 07 12:11:45 2017 +0859
     2.3 @@ -1017,6 +1017,8 @@
     2.4  	if [ -n "$grprowid" ]; then
     2.5  	  qgrp=$(sqlquote "$owner")
     2.6  	  dbsetbyid grp $owner wtime "`date '+%F %T'`"
     2.7 +	else
     2.8 +	  dbsetbyid user "$user" wtime "`date '+%F %T'`"
     2.9  	fi
    2.10  	;;
    2.11        esac

     3.1 --- a/s4-funcs.sh	Thu Sep 07 08:27:37 2017 +0859
     3.2 +++ b/s4-funcs.sh	Thu Sep 07 12:11:45 2017 +0859
     3.3 @@ -1109,6 +1109,7 @@
     3.4    if pwcheck "$pswd"; then
     3.5      newsession=`genrandom 50`
     3.6      dbsetbyid user $user skey "$newsession"
     3.7 +    dbsetbyid user $user login "`date '+%F %T'`"
     3.8      gencookie "user=$user" "skey=$newsession"
     3.9      return 0
    3.10    fi
    3.11 @@ -2005,9 +2006,11 @@
    3.12  			max(case key when 'tag' then val end) as tag,
    3.13  			max(case key when 'mtime' then val end) as mtime,
    3.14  			max(case key when 'wtime' then val end) as wtime
    3.15 +			max(case key when 'login' then val end) as login
    3.16  			from ${tbl}_s group by $nm)
    3.17  		b on a.$nm=b.name $cond $3
    3.18 -	order by b.tag desc, b.wtime desc, b.mtime desc, a.rowid asc"
    3.19 +	order by b.wtime desc, b.login desc,
    3.20 +	         b.mtime desc, b.tag desc, a.rowid asc"
    3.21    # Give precedence to newer maintained groups (2016-09-24)
    3.22    # Note that mtime is stored only in grp_s.
    3.23  ## err LE:sql.1="$sql"
    3.24 @@ -2074,7 +2077,7 @@
    3.25  	iconhref "$dir/$deficon" "$hrb+$lnk" "$gecos"
    3.26        fi
    3.27      elif [ -n "$icon" -a -s "$icon" ]; then
    3.28 -      iconhref2 "$icon" "$hrb+$lnk" "$gecos"
    3.29 +      iconhref2 "$icon" "$hrb+$lnk" "$gecos<br>$mt"
    3.30      else
    3.31        cond="$nm=$qname"
    3.32        # err imgsrc_cache "$dir/list" ${tbl}_m "$cond" S