' $System.Access Admin
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibrarySettingMenu.html"-->
' Call cmLoadStyleSheet "setting"
' $CaptionTitle = "システム設定"
' Call cmHead $CaptionTitle
</head>
<body>
' $localWidth = "9.5em"
' Call cmHeaderView 1 $CaptionTitle
<p>
<table width="99%" border="0" cellspacing="0" cellpadding="4">
<tr><td class="active" width="10%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
' If $mw.WorkSpaces.$WID
<tr><td nowrap>
<span class="systemadmin-menu">\\
'  Call cmLink "全般" "adminbasic32.png" "$Server?page=SystemAdmin"
</span>
</td></tr>
' Else
<tr class="selected"><td nowrap>
<span class="systemadmin-menu">\\
'  Call cmImage "adminbasic32.png"
全般</span></td></tr>
' EndIf
' For Each $ws in $mw.WorkSpaces
'  If $ws.ID = $WID
<tr class="selected"><td nowrap>
<span class="systemadmin-menu">\\
'   Call cmImage "mailspace32.png"
$ws.Name</span>
'  Else
<tr><td nowrap>
'   $LicenseKey = $Command.System.IsLicenseKey
'   If ! $LicenseKey
'    $t = $Command.System.GetTrialEnd
'    If $t.Date < $Date
'     $TrialOver = 1
'    EndIf
'   EndIf
<span class="systemadmin-menu">\\
'   Call cmLink $ws.Name "mailspace32.png" "$Server?page=SystemAdmin&wid=$ws.ID" $TrialOver
</span>
'  EndIf
' Next
</td></tr>
</table>
</td><td width="90%" valign="top">
' If $mw.WorkSpaces.$WID
'  Set $ws = $mw.WorkSpaces.$WID
'  Call formBeginFieldSet "基本設定" systemmanage20.png
'  Call systemMenuBegin
'  Call systemMenuButton "アクセス権" "" access32.png "$Server?page=SystemManageAccess&wid=$WID" $localWidth
'  Call systemMenuButton "アプリケーション" "の設定" appmenu32.png "$Server?page=SystemManageApplication&wid=$WID" $localWidth
'  Call systemMenuEnd
'  Call formEndFieldSet
<br>
'  For Each $ms in $ws.Mails
'   $ID = $ms.ID
'   Call formBeginFieldSet $ms.Name "systemmail20.png"
'   Call systemMenuBegin
'   Call systemMenuButton "アクセス権" "" access32.png "$Server?page=SystemMailAccess&wid=$WID&id=$ID" $localWidth
'   Call systemMenuButton "メール" "アカウント" mailaccount32.png "$Server?page=SystemMailAccount&wid=$WID&id=$ID" $localWidth
'   Call systemMenuButton "一括削除" "" deleteall32.png "$Server?page=SystemMailDeleteAll&wid=$WID&id=$ID" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'  Next
'  For Each $fs in $ws.Forms
'   If $fs.Disable
'    Continue
'   EndIf
'   $ID = $fs.ID
'   Set $FormProfile = $Command.Form.GetFormTop $ID
'   If $FormProfile.Image
'    $Image = $FormProfile.Image
'   Else
'    $Image = "browse20.png"
'   EndIf
'   Call formBeginFieldSet $fs.Name $Image
'   Call systemMenuBegin
'   Call systemMenuButton "アクセス権" "" access32.png "$Server?page=SystemFormAccess&wid=$WID&id=$ID" $localWidth
'   If $fs.Item
'    $Image = $fs.Item
'   Else
'    $Image = "telitem32.png"
'   EndIf
'   Call systemMenuButton $fs.Name "の項目" $Image "$Server?page=SystemFormItem&wid=$WID&id=$ID" $localWidth
'   Call systemMenuButton "一括削除" "" deleteall32.png "$Server?page=SystemFormDocDeleteAll&wid=$WID&id=$ID" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'  Next
'  If ! $ws.Customer.Disable
'   Call formBeginFieldSet $ws.Customer.Name customer20.png
'   Call systemMenuBegin
'   Call systemMenuButton "アクセス権" "" access32.png "$Server?page=SystemCustomerAccess&wid=$WID" $localWidth
'   Call systemMenuButton "会社の項目" "" companyitem32.png "$Server?page=SystemCustomerCompanyItem&wid=$WID" $localWidth
'   Call systemMenuButton "顧客の項目" "" personitem32.png "$Server?page=SystemCustomerPersonItem&wid=$WID" $localWidth
'   Call systemMenuButton "一括削除" "" deleteall32.png "$Server?page=SystemCustomerDeleteAll&wid=$WID" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'  EndIf
'  If ! $ws.Template.Disable
'   Call formBeginFieldSet $ws.Template.Name template20.png
'   Call systemMenuBegin
'   Call systemMenuButton "アクセス権" "" access32.png "$Server?page=SystemTemplateAccess&wid=$WID" $localWidth
'   Call systemMenuButton "一括削除" "" deleteall32.png "$Server?page=SystemTemplateDeleteAll&wid=$WID" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'  EndIf
'  If ! $ws.Post.Disable
'   Call formBeginFieldSet $ws.Post.Name post20.png
'   Call systemMenuBegin
'   Call systemMenuButton "アクセス権" "" access32.png "$Server?page=SystemPostAccess&wid=$WID" $localWidth
'   Call systemMenuButton "一括削除" "" deleteall32.png "$Server?page=SystemPostDeleteAll&wid=$WID" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'  EndIf
'  If ! $ws.Report.Disable
'   Call formBeginFieldSet $ws.Report.Name report20.png
'   Call systemMenuBegin
'   Call systemMenuButton "アクセス権" "" access32.png "$Server?page=SystemReportAccess&wid=$WID" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'  EndIf
' Else
'  Call formBeginFieldSet "ユーザー管理" user20.png
'  Call systemMenuBegin
'  If $System.IsCloudUserAdmin
'  Call systemMenuButton "cybozu.com 共通管理" "(ユーザー管理)" comadmin32.png "/admin/" $localWidth
'  Call systemMenuButton "ユーザーの表示順と" "所属グループ" useradmin32.png "$Server?page=SystemUserAdmin" $localWidth
'  Else
'  Call systemMenuButton "ユーザー" "" useradmin32.png "$Server?page=SystemUserAdmin" $localWidth
'  EndIf
'  Call systemMenuButton "グループ" "" groupadmin32.png "$Server?page=SystemGroupAdmin" $localWidth
'  If ! $System.IsCloudUserAdmin
'   If $Connect.To != "cb4"
'    Call systemMenuButton "ログイン方法" "" login32.png "$Server?page=SystemLoginMethod" $localWidth
'   EndIf
'  EndIf
'  If ! $System.IsCloud
'   Call systemMenuButton "連携認証" "" commonauth32.png "$Server?page=SystemUserCommonAuth" $localWidth
'  EndIf
'  Call systemMenuEnd
'  Call formEndFieldSet
<br>
'  If $System.IsCloud
'   Call formBeginFieldSet "運用管理" systemadmin20.png
'   Call systemMenuBegin
'   Call systemMenuButton "メールサーバー" "" mailserver32.png "$Server?page=SystemMailServer" $localWidth
'   Call systemMenuButton "メール通知" "" notify32.png "$Server?page=SystemNotifySet" $localWidth
'   For Each $ws in $mw.WorkSpaces
'    If ! $ws.Storages.Count
'     Continue
'    EndIf
'    Call systemMenuButton "過去データ" "の退避" save32.png "$Server?page=SystemSave" $localWidth
'    Exit For
'   Next
'   If $System.CloudLicensePlan And ( $mw.WorkSpaces.Count > 1 )
'    For Each $ws in $mw.WorkSpaces
'     If $ws.Mails.Count or $ws.MovingMails.Count
'      Call systemMenuButton "メールアプリケーション" "の移動" mailaplimove32.png "$Server?page=SystemMoveMailApplication" $localWidth
'      Exit For
'     EndIf
'    Next
'   EndIf
'   Call systemMenuButton "メールスペース" "" mailspace32.png "$Server?page=SystemWorkSpace" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
'  Else
'   Call formBeginFieldSet "基本設定" systemmanage20.png
'   Call systemMenuBegin
'   Call systemMenuButton "メールサーバー" "" mailserver32.png "$Server?page=SystemMailServer" $localWidth
'   Call systemMenuButton "メールスペース" "" mailspace32.png "$Server?page=SystemWorkSpace" $localWidth
'   Call systemMenuButton "システム管理用" "パスワード" password32.png "$Server?page=SystemPassword" $localWidth
'   Call systemMenuButton "システム管理者" "の登録" adminbasic32.png "$Server?page=SystemAdminSet" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'   Call formBeginFieldSet "環境設定" systemadmin20.png
'   Call systemMenuBegin
'   Call systemMenuButton "アクセスログ" "" log32.png "$Server?page=SystemLogSet" $localWidth
'   Call systemMenuButton "メンテナンス" "モード" system32.png "$Server?page=SystemMaintenanceSet" $localWidth
'   Call systemMenuButton "実行環境" "の診断" environment32.png "$Server?page=SystemEnvironment" $localWidth
'   $CanExecRoutine = $System.CanExecRoutine
'   If $CanExecRoutine
'    Call systemMenuButton "データベース" "の定期チェック" databasecheck32.png "$Server?page=SystemCheckSet" $localWidth
'   EndIf
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'   Call formBeginFieldSet "運用管理" function20.png
'   Call systemMenuBegin
'   Call systemMenuButton "メール通知" "の設定" notify32.png "$Server?page=SystemNotifySet" $localWidth
'   Call systemMenuButton "メールの" "インポート" importmail32.png "$Server?page=SystemMailImport" $localWidth
'   Call systemMenuButton "アドレスデータの" "CSV読み込み" import32.png "$Server?page=SystemCustomerImport" $localWidth
'   Call systemMenuButton "過去データ" "の退避" save32.png "$Server?page=SystemSave" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'   Call formBeginFieldSet "ライセンス" license20.png
'   Call systemMenuBegin
'   Call systemMenuButton "ライセンスキー" "の設定" keyregistry32.png "$Server?page=SystemLicense" $localWidth
'   Call systemMenuButton "ライセンスキー" "の登録状況" licensesituation32.png "$Server?page=SystemLicenseHistory" $localWidth
'   Call systemMenuEnd
'   Call formEndFieldSet
<br>
'  EndIf
' EndIf
</td></tr></table>
</p>
' Call cmChildFooter
</body>
</html>