Mercurial > hgrepos > hgweb.cgi > s4

changeset 816:ed2c8aab742d feature-world

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Archiving world provides no new-group link
author HIROSE Yuuji <yuuji@gentei.org>
date Wed, 17 Jun 2020 08:16:59 +0900
parents 04034092338d
children d2c4c473e08e
files s4-funcs.sh
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/s4-funcs.sh	Mon Jun 15 20:23:30 2020 +0900
+++ b/s4-funcs.sh	Wed Jun 17 08:16:59 2020 +0900
@@ -73,6 +73,7 @@
 [編集]リンクから修正してください。"
 blogreadflagrowid=0
 blogcutoffflagrowid=-1
+nonewgroupworld=${NONEWGROUPWORLD:-*archive*}
 whatsnewdays=${WHATS_NEW_DAYS:-14}
 main_session=`date +%F-$$`
 session=$main_session
@@ -1966,12 +1967,16 @@
   listmember $kwd
 }
 grps() {
+  case "$S4WORLD" in
+    $nonewgroupworld) ;;
+    *)	LINK_NEWGRP="<a href=\"?groupman\">新規グループ作成</a>" ;;
+  esac
   _m4 -D_TITLE_="グループ一覧" -D_BODYCLASS_=listgroup $layout/html.m4.html
   kwd=`getpar kwd`
   listgroup $kwd \
       | _m4 -D_DUMPTABLE_="syscmd(cat)" \
 	    -D_TITLE_="グループ関連操作" \
-	    -D_FORM_="<a href=\"?groupman\">新規グループ作成</a>" \
+	    -D_FORM_="${LINK_NEWGRP}${NEWGRP_GUIDE}" \
 	    $layout/form+dump.m4.html
 }
 grp() {	# $1=group-rowid

yatex.org