# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1498916629 -32373
# Node ID 39823dfee44f31deb518a87a4a0ee2d81d237aef
# Parent  12548e1a4ff858b380062b466eb3ba157052efe6
Display warning about quiz mode on the top of articles

diff -r 12548e1a4ff8 -r 39823dfee44f s4-blog.sh
--- a/s4-blog.sh	Sat Jul 01 20:17:41 2017 +0859
+++ b/s4-blog.sh	Sat Jul 01 22:43:22 2017 +0859
@@ -196,9 +196,13 @@
 	<tr class="preface${frozen_class:+ }$frozen_class">
 	 <td>`echo "$hexhead"|unhexize|hreflink|minitbl`</td></tr>
 	</table>
-
-	<table class="blog_replies">
 	EOF
+    case "$blogtype" in
+      "クイズ")
+	echo "クイズモードは本人と管理者の書き込みのみが表示されます。"
+	;;
+    esac | html p 'class="warn"'
+    echo '<table class="blog_replies">'
     if [ x"$blogtype" = x"クイズ" ]; then
       if $isgroup; then
 	if ! isgrpowner "$user" "$blogowner"; then
@@ -209,6 +213,12 @@
 		      author='$user')
 		EOF
 	fi
+      else		# if user's blog
+	if [ x"$user" != x"$blogowner" ]; then
+	  cat<<-EOF > $quizmodefile
+		AND author IN ('$blogowner', '$user')
+		EOF
+	fi
       fi
     fi
   }