' If $System.IsCloudUserAdmin
'  Exit
' EndIf
' $System.Access AdminUser
' If $System.IsPost
'  $System.Redirect $Server?page=SystemAdmin
'  $System.SetAdminUser
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibrarySelect.html"-->
' $CaptionTitle = "システム管理者の登録"
' Call cmHead $CaptionTitle
</head>
'' onLoadで呼ばれる関数名を誤って変更されるのを防ぐため、同一変数を使用するようにする
<body onLoad="ChangeAdminGID( document.forms['AdminSet'] )">
' $System.SetParameter BackURL "$Server?page=SystemAdmin"
' Call cmHeaderView 1 $CaptionTitle $BackURL "システム設定"
<form method="post" action="$Server?" name="AdminSet">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemAdminSet">
<input type="hidden" name="rw" value="mw">
' $AccessAdmin = $System.IsAdminUserExist
<p>システム設定のアクセス制限方法を選択してください。</p>
<p>
<table border="0" cellspacing="0" cellpadding="4">
<tr><td nowrap>
' If $AccessAdmin
'  $Checked = 0
' Else
'  $Checked = 1
' EndIf
' Call formRadio "AccessAdmin" "パスワードで制限する" $Checked 0 "AdminPassword"
</td></tr>
<tr><td nowrap>
' Call formRadio "AccessAdmin" "システム管理者になるユーザーを制限する(選択してください)" $AccessAdmin 1 "AdminUser"
</td></tr>
</table>
<blockquote>
' Call selectUser "AdminGID" "AdminUIDs" "AdminUID" $AdminUIDs "" $Login.FirstGID "AccessAdmin[1].checked=true;" "" 0 "AdminGIDs" $AdminGIDs
</blockquote>
</p>
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "設定する" "" "PreSubmitAdminGID( this.form );" "location.href='$escBackURL';"
</form>
' Call cmChildFooter $BackURL "システム設定へ"
</body>
</html>