' $System.Access Admin
' Set $u = $Users.$UID
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibrarySettingMenu.html"-->
' Call cmLoadStyleSheet "setting"
' $CaptionTitle = "個人設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $localWidth = "8.5em"
' $System.SetParameter BackURL "$Server?page=SystemUserAdmin&gid=$GID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin" "システム設定" $BackURL "ユーザーの設定"
<br>
' For Each $ws in $mw.WorkSpaces
'  $Access = $Command.System.IsWorkSpaceAccess $ws.ID $UID
'  If ! $Access
'   Continue
'  EndIf
'  Call formBeginFieldSet "$ws.Nameのカスタマイズ" function20.png
'  Call systemMenuBegin
'  Call systemMenuButton "表示" "" pageadmin32.png "$Server?page=SystemUserViewSet&wid=$ws.ID&uid=$UID&gid=$GID&admin=1" $localWidth
'  Call systemMenuButton "初期値" "" default32.png "$Server?page=SystemUserDefaultSet&wid=$ws.ID&uid=$UID&gid=$GID&admin=1" $localWidth
'  If ( ! $mw.DisableNotify ) and $u.Mail
'   $Access = 0
'   For Each $ms in $ws.Mails
'    If $ms.MailServers.Count
'     $Access = $Command.System.IsAccessUser $UID $ms Access AccessUIDs AccessGIDs
'     If $Access
'      Exit
'     EndIf
'    EndIf
'   Next
'   If $Access
'    Call systemMenuButton "通知" "" notify32.png "$Server?page=SystemUserNotifySet&wid=$ws.ID&uid=$UID&gid=$GID&admin=1" $localWidth
'   EndIf
'  EndIf
'  Call systemMenuEnd
'  Call formEndFieldSet
<br>
' Next
' Call cmChildFooter $BackURL "ユーザーの設定へ"
</body>
</html>