s4

changeset 465:4c6a3bacfec3

find changesets by author, revision, files, or words in the commit message
Show read-time link only to group administrators
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 22 Aug 2017 08:20:02 +0859
parents 6591b5308ddd
children 929a925f10d8
files s4-blog.sh
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line diff
     1.1 --- a/s4-blog.sh	Mon Aug 21 20:39:45 2017 +0859
     1.2 +++ b/s4-blog.sh	Tue Aug 22 08:20:02 2017 +0859
     1.3 @@ -131,6 +131,7 @@
     1.4  
     1.5    blogowner=`getvalbyid blog owner "$2"`
     1.6    isgroup "$blogowner" && isgroup=true || isgroup=false
     1.7 +  isgrpadmin=false			# Reversed later (*1)
     1.8  
     1.9    # 2015-10-05 check readable
    1.10    if ! $iswritable; then
    1.11 @@ -146,6 +147,8 @@
    1.12  	fi
    1.13        fi
    1.14      fi
    1.15 +  else	# if writable
    1.16 +    isgrpowner "$user" "$blogowner" && isgrpadmin=true	# (*1)
    1.17    fi
    1.18    case `getvalbyid blog notify "$2"` in # "all", "admin" or "no" (or NULL)
    1.19      admin)	notifyto=1 ;;
    1.20 @@ -174,7 +177,8 @@
    1.21      href3="(<a href=\"?gethandout+$rowid\" accesskey=\"f\" title=\"F\">ファイル取得</a>)"
    1.22    fi
    1.23    href4='<a href="#bottom" accesskey="b" title="B"> 末尾へ</a>'
    1.24 -  href5="<a href=\"?blogseen+$rowid\" accesskey=\"s\" title=\"S\"> 読刻</a>"
    1.25 +  $isgrpadmin &&
    1.26 +      href5="<a href=\"?blogseen+$rowid\" accesskey=\"s\" title=\"S\"> 読刻</a>"
    1.27    quizmodefile=$td/quiz; rm -f "$quizmodefile"	# XXX: Global state
    1.28  
    1.29    query<<-EOF |