# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1504753932 -32373
# Node ID 4f9036d35b573f2c5bad496432a38bebb43fa61f
# Parent  677597199031f1faf18c1920eaebd0cd1c06764e
Sort user by last login.  Sort group by the latest article time.

diff -r 677597199031 -r 4f9036d35b57 examples/sns/form/user.def
--- a/examples/sns/form/user.def	Thu Sep 07 08:27:37 2017 +0859
+++ b/examples/sns/form/user.def	Thu Sep 07 12:11:45 2017 +0859
@@ -7,3 +7,5 @@
 プロフィール画像:profimg:m:image:maxlength="400K"
 ひとこと:desc:s:textarea:maxlength="1024"
 履歴書(4MBまで):profpdf:m:document:maxlength="4M"
+書込:wtime:s:stamp:
+訪問:login:s:stamp:
diff -r 677597199031 -r 4f9036d35b57 s4-blog.sh
--- a/s4-blog.sh	Thu Sep 07 08:27:37 2017 +0859
+++ b/s4-blog.sh	Thu Sep 07 12:11:45 2017 +0859
@@ -1017,6 +1017,8 @@
 	if [ -n "$grprowid" ]; then
 	  qgrp=$(sqlquote "$owner")
 	  dbsetbyid grp $owner wtime "`date '+%F %T'`"
+	else
+	  dbsetbyid user "$user" wtime "`date '+%F %T'`"
 	fi
 	;;
       esac
diff -r 677597199031 -r 4f9036d35b57 s4-funcs.sh
--- a/s4-funcs.sh	Thu Sep 07 08:27:37 2017 +0859
+++ b/s4-funcs.sh	Thu Sep 07 12:11:45 2017 +0859
@@ -1109,6 +1109,7 @@
   if pwcheck "$pswd"; then
     newsession=`genrandom 50`
     dbsetbyid user $user skey "$newsession"
+    dbsetbyid user $user login "`date '+%F %T'`"
     gencookie "user=$user" "skey=$newsession"
     return 0
   fi
@@ -2005,9 +2006,11 @@
 			max(case key when 'tag' then val end) as tag,
 			max(case key when 'mtime' then val end) as mtime,
 			max(case key when 'wtime' then val end) as wtime
+			max(case key when 'login' then val end) as login
 			from ${tbl}_s group by $nm)
 		b on a.$nm=b.name $cond $3
-	order by b.tag desc, b.wtime desc, b.mtime desc, a.rowid asc"
+	order by b.wtime desc, b.login desc,
+	         b.mtime desc, b.tag desc, a.rowid asc"
   # Give precedence to newer maintained groups (2016-09-24)
   # Note that mtime is stored only in grp_s.
 ## err LE:sql.1="$sql"
@@ -2074,7 +2077,7 @@
 	iconhref "$dir/$deficon" "$hrb+$lnk" "$gecos"
       fi
     elif [ -n "$icon" -a -s "$icon" ]; then
-      iconhref2 "$icon" "$hrb+$lnk" "$gecos"
+      iconhref2 "$icon" "$hrb+$lnk" "$gecos<br>$mt"
     else
       cond="$nm=$qname"
       # err imgsrc_cache "$dir/list" ${tbl}_m "$cond" S