' $System.Access Login
' If ! $WID
'  For Each $WS in $mw.WorkSpaces
'   $Access = $Command.System.IsWorkSpaceAccess $WS.ID $Login.ID
'   If $Access
'    $System.SetWorkSpaceID $WS.ID
'    $WID = $WS.ID
'    Exit For
'   EndIf
'  Next
' EndIf
' If $System.IsPost
'  $System.ContentType
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibrarySettingMenu.html"-->
' Call cmLoadStyleSheet "setting"
' $CaptionTitle = "個人設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $localWidth = "8.5em"
' Call cmHeader $CaptionTitle
<br>
' Call formBeginFieldSet "個人情報" user20.png
' Call systemMenuBegin
' If $System.IsCloudUserAdmin
'  Call systemMenuButton "ユーザー情報" "" useradmin32.png "/settings/profile" $localWidth
'  Call systemMenuButton "パスワード" "" password32.png "/settings/password" $localWidth
'  Call systemMenuButton "最初に表示する項目" "" mailspace32.png "$Server?page=PersonalUserGroup&wid=$WID&uid=$Login.ID" $localWidth
' Else
'  Call systemMenuButton "ユーザー情報" "" useradmin32.png "$Server?page=PersonalSet&wid=$WID&uid=$Login.ID" $localWidth
'  If ! $Connect.To
'   Call systemMenuButton "パスワード" "" password32.png "$Server?page=PersonalPassword&wid=$WID" $localWidth
'  EndIf
' EndIf
' Call systemMenuEnd
' Call formEndFieldSet
<br>
' For Each $ws in $Profile.WorkSpaces
'  Call formBeginFieldSet "$ws.Nameのカスタマイズ" function20.png
'  Call systemMenuBegin
'  Call systemMenuButton "表示" "" pageadmin32.png "$Server?page=PersonalUserViewSet&wid=$ws.ID&uid=$login.ID" $localWidth
'  Call systemMenuButton "初期値" "" default32.png "$Server?page=PersonalUserDefaultSet&wid=$ws.ID&uid=$Login.ID" $localWidth
'  If ( ! $mw.DisableNotify ) and $Login.Mail
'   $Access = 0
'   For Each $ms in $ws.Mails
'    If $ms.IsMailServer
'     $Access = $Command.System.IsAccessUser $Login.ID $ms Access AccessUIDs AccessGIDs
'     If $Access
'      Exit
'     EndIf
'    EndIf
'   Next
'   If $Access
'    Call systemMenuButton "通知" "" notify32.png "$Server?page=PersonalUserNotifySet&wid=$ws.ID&uid=$Login.ID" $localWidth
'   EndIf
'  EndIf
'  Call systemMenuEnd
'  Call formEndFieldSet
<br>
' Next
' Call cmChildFooter
</body>
</html>