Mercurial > hgrepos > hgweb.cgi > s4
changeset 816:ed2c8aab742d feature-world
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