' $System.Access Admin
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $UserNumber = $Users.Count
' Init $UserNumber = 0
' $CaptionTitle = "ユーザーの設定"
' If $System.IsCloudUserAdmin
'  $CaptionTitle = "ユーザーの表示順と所属グループ"
' EndIf
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemAdmin"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<form method="get" action="$Server" style="margin:0px;">
<input type="hidden" name="Page" value="SystemUserAdmin">
<p>
' If $GID
'  Set $us = $Groups.$GID.Users
' EndIf
' If ! $us
'  Set $us = $Users
' EndIf
' If $Connect.To
<p><font color="#ff0000">
'  If $Connect.URL
<a href="$Connect.URL" target="_blank">サイボウズ(R) Office シリーズ</a>
'  Else
サイボウズ(R) Office シリーズ
'  EndIf
とユーザー情報を連携する設定になっています。</font><br>
※ユーザーの追加・変更・削除は、サイボウズ(R) Office シリーズの方からおこなってください。
</p>
<ul>
<li><a href="$Server?page=SystemUserConnect">サイボウズ(R) Office シリーズとのユーザー情報の連携</a></li>
<li><a href="$Server?page=SystemUserSelectAvailable">サイボウズ(R)メールワイズ(R)を利用するユーザーの設定</a></li>
</ul>
<p>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td class="active" colspan="2" nowrap>グループ
<select name="GID" onChange="this.form.submit();">
<option value="">(全員)
'  Options $GID in $Groups
</select>
</td></tr>
<tr bgcolor="#cccccc"><th width="200" nowrap>名前</th><th width="300" nowrap>操作</th></tr>
'  For Each $u in $us
<tr><td nowrap>
'   If $u.Suspend
'    $ImageFile = "suspenduser20.png"
'   Else
'    $ImageFile = "user20.png"
'   EndIf
'   Call cmLink $u.Name $ImageFile "$Server?page=SystemUserSystemView&uid=$u.ID" 0 1
</td><td nowrap>
'   Call cmLink "変更する" "write20.png" "$Server?page=SystemUserModify&uid=$u.ID&gid=$GID"
'   Call cmLink "個人設定" "personaladmin20.png" "$Server?page=SystemUserCustomize&uid=$u.ID&gid=$GID"
</td></tr>
'  Next
</table>
</p>
' Else
'  If ! $System.IsCloudUserAdmin
<p>
現在のユーザー数 : <b>$UserNumber</b>人
'   If $GID
'    Set $g = $Groups.$GID
'    $Count = $g.Users.Count
'    Init $Count = 0
($g.Name : <b>$Count</b>人)
'   EndIf
</p>
'  EndIf
<table><tr><td valign="top" nowrap>
'  If ! $System.IsCloudUserAdmin
'   Call cmLink "追加する" "write20.png" "$Server?page=SystemUserAdd&gid=$GID"
'  EndIf
'  Call cmLink "順番変更" "order20.png" "$Server?page=SystemUserOrder&gid=$GID"
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td class="active" colspan="2" valign="top" nowrap>グループ
<select name="GID" onChange="this.form.submit();">
<option value="">(全員)
' Options $GID in $Groups
</select>
</td></tr>
<tr bgcolor="#cccccc"><th width="200" nowrap>名前</th><th width="300" nowrap>操作</th></tr>
'  For Each $u in $us
<tr><td nowrap>
'   If $u.Suspend
'    $ImageFile = "suspenduser20.png"
'   Else
'    $ImageFile = "user20.png"
'   EndIf
'   Call cmLink $u.Name $ImageFile "$Server?page=SystemUserSystemView&uid=$u.ID" 0 1
</td><td nowrap>
'   If $System.IsCloudUserAdmin
'    Call cmLink "所属グループを変更する" "groupadmin20.png" "$Server?page=SystemUserGroupModify&uid=$u.ID&gid=$GID"
'   Else
'    Call cmLink "変更する" "write20.png" "$Server?page=SystemUserModify&uid=$u.ID&gid=$GID"
'    Call cmLink "削除する" "delete20.png" "$Server?page=SystemUserDelete&uid=$u.ID&gid=$GID"
'   EndIf
'   Call cmLink "個人設定" "personaladmin20.png" "$Server?page=SystemUserCustomize&uid=$u.ID&gid=$GID"
</td></tr>
'  Next
</table>
</td>
'  If ! $System.IsCloudUserAdmin
<td valign="top" nowrap>
<ul>
<li><a href="$Server?page=SystemUserImport">CSVファイルからの読み込み</a></li>
<li><a href="$Server?page=SystemUserExport">CSVファイルへの書き出し</a></li>
<li><a href="$Server?page=SystemUserDeleteAll">ユーザーの一括削除</a></li>
<li><a href="$Server?page=SystemUserPasswordLength">パスワードの制限</a></li>
<li><a href="$Server?page=SystemUserConnect">サイボウズ(R) Office シリーズとのユーザー情報の連携</a></li>
</ul>
</td>
'  EndIf
</tr>
</table>
' EndIf
</p>
</form>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>