--- a/s4-funcs.sh	Sun Dec 04 16:59:59 2022 +0859
+++ b/s4-funcs.sh	Sun Dec 11 17:19:32 2022 +0859
@@ -2844,6 +2844,26 @@
       title=\"Shortcut: e${nl}Edit Group\">グループ情報の編集</a>"
     iamowner=$rowid
     colmd=" mode"
+    # We have to specify report-type blog to lshandoutall
+    repblog=`query "
+	WITH grpblogs AS (
+	  SELECT id FROM blog_s
+	  WHERE key='owner' AND val=(SELECT gname FROM grp WHERE rowid=$rowid)
+	), ownerMode AS (
+	  SELECT id,
+	  	 max(CASE key WHEN 'owner' THEN val END) owner,
+		 max(CASE key WHEN 'mode' THEN val END) mode
+	  FROM blog_s
+	  GROUP BY id
+	), blogid AS (
+	  SELECT id
+	  FROM grpblogs NATURAL LEFT JOIN ownerMode
+	  WHERE mode LIKE 'report%' LIMIT 1
+	) SELECT blog.rowid FROM blogid NATURAL LEFT JOIN blog;"`
+    if [ -n "$repblog" ]; then
+       csvid="gethandoutcsv"
+       replink="/ <a href=\"?lshandoutall+$repblog#$csvid\">レポート全集計</a>"
+    fi
   fi
   if [ -n "$ismember" ]; then
     #echo "${iamowner:+ / }<a href=\"?blog+$rowid\">グループの新規話題作成</a>"
@@ -2853,7 +2873,8 @@
 	${iamowner:+ / }<a accesskey="n" title="Shortcut: n${nl}New blog"
 	  href="?blog+$rowid">グループの新規話題作成</a>
 	  / <a accesskey="m" title="Shortcut: m${nl}Operations on Members"
-	  href="?grpaction+$rowid">メンバーを個別選択しての操作</a></p>
+	  href="?grpaction+$rowid">メンバーを個別選択しての操作</a>
+	  $replink</p>
 	<form action="?send2mem" method="POST" enctype="multipart/form-data">
 	<div class="fold clear">
 	`cgi_checkbox send yes id="send"`<label