' If $System.IsCloudUserAdmin
'  Exit
' EndIf
' $System.Access Login
' $UID = $Login.ID
' If $System.IsPost
'  $Command.User.Modify
'  $System.Redirect $Server?page=PersonalAdmin&wid=$WID
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="PartsUserSet.html"-->
' $CaptionTitle = "ユーザー情報の変更"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=PersonalAdmin&wid=$WID"
' Call cmHeader $CaptionTitle $BackURL "個人設定"
<form method="post" action="$Server?" enctype="multipart/form-data" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="PersonalSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="rw" value="User">
<input type="hidden" name="UID" value="$UID">
<input type="hidden" name="BGID" value="$GID">
<p>変更するユーザーの情報を入力してください。</p>
' Call userSet $UID
' Call formCommit "変更する" "" "PreSubmit( this.form )"
</form>
' Call cmChildFooter $BackURL "個人設定へ"
</body>
</html>