' $System.Access Admin
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "グループの設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<p>
' If $Connect.To
<font color="#ff0000">
'  If $Connect.URL
<a href="$Connect.URL" target="_blank">サイボウズ(R) Office シリーズ</a>
'  Else
サイボウズ(R) Office シリーズ
'  EndIf
とグループ情報を連携する設定になっています。</font><br>
※グループの追加・変更・削除は、サイボウズ(R) Office シリーズの方からおこなってください。
' Else
現在のグループ数：$Groups.Count
</p><p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>
'  Call cmLink "追加する" "write20.png" "$Server?page=SystemGroupAdd"
'  If $Groups.Count > 1
'   $NoOrder = 0
'  Else
'   $NoOrder = 1
'  EndIf
'  Call cmLink "順番変更" "order20.png" "$Server?page=SystemGroupOrder" $NoOrder
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr bgcolor="#cccccc"><th width="200" nowrap>グループ名</th><th width="300" nowrap>操作</th></tr>
'  For Each $g in $Groups
<tr><td nowrap>$g.Name</td><td nowrap>
'   Call cmLink "変更する" "write20.png" "$Server?page=SystemGroupModify&gid=$g.ID"
'   Call cmLink "削除する" "delete20.png" "$Server?page=SystemGroupDelete&gid=$g.ID"
</td></tr>
'  Next
</table>
</td><td valign="top" nowrap>
<ul>
<li><a href="$Server?page=SystemGroupDeleteAll">グループの一括削除</a></li>
</ul>
</td></tr>
</table>
' EndIf
</p>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>