# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1503357629 -32373
# Node ID 4c6a3bacfec30bee494e840c6669d035aa9161db
# Parent  6591b5308ddd7ea1ba25fc7967ebd6f79411cf14
Show read-time link only to group administrators

diff -r 6591b5308ddd -r 4c6a3bacfec3 s4-blog.sh
--- a/s4-blog.sh	Mon Aug 21 20:39:45 2017 +0859
+++ b/s4-blog.sh	Tue Aug 22 08:20:02 2017 +0859
@@ -131,6 +131,7 @@
 
   blogowner=`getvalbyid blog owner "$2"`
   isgroup "$blogowner" && isgroup=true || isgroup=false
+  isgrpadmin=false			# Reversed later (*1)
 
   # 2015-10-05 check readable
   if ! $iswritable; then
@@ -146,6 +147,8 @@
 	fi
       fi
     fi
+  else	# if writable
+    isgrpowner "$user" "$blogowner" && isgrpadmin=true	# (*1)
   fi
   case `getvalbyid blog notify "$2"` in # "all", "admin" or "no" (or NULL)
     admin)	notifyto=1 ;;
@@ -174,7 +177,8 @@
     href3="(<a href=\"?gethandout+$rowid\" accesskey=\"f\" title=\"F\">ファイル取得</a>)"
   fi
   href4='<a href="#bottom" accesskey="b" title="B"> 末尾へ</a>'
-  href5="<a href=\"?blogseen+$rowid\" accesskey=\"s\" title=\"S\"> 読刻</a>"
+  $isgrpadmin &&
+      href5="<a href=\"?blogseen+$rowid\" accesskey=\"s\" title=\"S\"> 読刻</a>"
   quizmodefile=$td/quiz; rm -f "$quizmodefile"	# XXX: Global state
 
   query<<-EOF |