' If $System.IsPost
'  $Command.User.SetDefault
'  If $Admin or ( $UID != $Login.ID )
'   $System.Redirect $Server?page=SystemUserCustomize&uid=$UID&gid=$GID
'  Else
'   $System.Redirect $Server?page=PersonalAdmin&wid=$WID
'  EndIf
'  Exit
' EndIf
' Set $u = $Users.$UID
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "初期値の設定"
' If $Admin or ( $UID != $Login.ID )
'  Call cmHead $CaptionTitle 1
' Else
'  Call cmHead $CaptionTitle
' EndIf
</head>
<body>
' If $Admin or ( $UID != $Login.ID )
'  $System.SetParameter BackURL "$Server?page=SystemUserCustomize&uid=$UID&gid=$GID"
'  Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin" "システム設定" "$Server?page=SystemUserAdmin&gid=$GID" "ユーザーの設定" $BackURL "個人設定"
' Else
'  $System.SetParameter BackURL "$Server?page=PersonalAdmin&wid=$WID"
'  Call cmHeader $CaptionTitle $BackURL "個人設定"
' EndIf
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="rw" value="User">
<input type="hidden" name="Page" value="$Page">
<input type="hidden" name="UID" value="$UID">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="GID" value="$GID">
<input type="hidden" name="Admin" value="$Admin">
<p>$u.Name さんの $WorkSpace.Name の初期値を設定してください。</p>
' If $WorkSpace.Mails.Count or $WorkSpace.Forms.Count
<p>
' Call cmImage "pin.png"
$WorkSpace.Name全般
<table border="0" cellspacing="0" cellpadding="4">
<tr><td><img src="$IMG_PATH/spacer.gif" width="25" height="25"></td>
<td width="250" valign="top" nowrap>最初に表示するアプリケーション</td><td valign="top" nowrap>
' $System.SetParameter FIDName "FirstID$WID"
<select name="$FIDName">
' $FirstID = $u.$FIDName
' Options $FirstID in $WorkSpace.Mails
' Options $FirstID in $WorkSpace.Forms
</select>
</td></tr>
</table>
</p>
' For Each $m in $WorkSpace.Mails
'  Set $MailProfile = $Command.Mail.GetMailTop $m.ID
<p>
'  Call cmImage "pin.png"
$m.Name
<table border="0" cellspacing="0" cellpadding="4">
'  If $m.IsAccessModify
<tr><td><img src="$IMG_PATH/spacer.gif" width="25" height="25"></td>
<td width="250" valign="top" nowrap>最初に使う From</td><td valign="top" nowrap>
'   $System.SetParameter FirstFRID "FirstFRID$m.ID"
<select name="$FirstFRID">
<option value="">(未設定)
'   For Each $From in $MailProfile.FromList
'    $FromName = $System.GetAddressString $From.Address $From.FromName
'    If $u.$FirstFRID = $From.ID
'     $Sel = "Selected"
'    Else
'     $Sel = ""
'    EndIf
<option value="$From.ID" $Sel>$FromName
'   Next
</select>
</td></tr>
'  EndIf
<tr><td><img src="$IMG_PATH/spacer.gif" width="25" height="25"></td>
<td width="250" valign="top" nowrap>最初に表示する一覧</td><td valign="top" nowrap>
'  $System.SetParameter FirstFID "FirstFID$m.ID"
'  $System.SetParameter FirstAID "FirstAID$m.ID"
'  $CheckAssigned = 0
'  $CheckReceived = 0
'  $CheckWorking = 0
'  $CheckToDo = 0
'  $CheckFolder = 0
'  If $u.$FirstFID = -1
'   $CheckAssigned = 1
'  Elif $u.$FirstFID = -7
'   $CheckToDo = 1
'  Elif $u.$FirstFID = -5
'   $CheckReceived = 1
'  Elif $u.$FirstFID = -4
'   $CheckWorking = 1
'  Elif $MailProfile.Folder.Disable
'   $CheckWorking = 1
'  Else
'   $SFID = $u.$FirstFID
'   If ( $SFID = 0 ) or $MailProfile.Folder.FolderSet.$SFID
'    $CheckFolder = 1
'   Else
'    $CheckWorking = 1
'   EndIf
'  EndIf
'' 編集権限がなく、以前に担当メール、確認メールが設定されていた場合は
'' 処理メールにチェックが入った状態で表示される。
'  If ! $m.IsAccessModify and ( $CheckAssigned or $CheckToDo )
'   $CheckWorking = 1
'   $CheckAssigned = 0
'   $CheckToDo = 0
'  EndIf
'  Call formRadio $FirstFID "処理メール" $CheckWorking -4 "Working$m.ID"
&nbsp;
'  Call cmImage "item16.png"
アカウント
<select name="$FirstAID" onChange="document.getElementById('Working$m.ID').checked=true;">
<option value="">(全て)
'  For Each $Account in $MailProfile.Accounts
'   If $Account.ID = $u.$FirstAID
'    $Sel = "Selected"
'   Else
'    $Sel = ""
'   EndIf
<option value="$Account.ID" $Sel>$Account.Name
'  Next
</select>
<br>
'' 編集権限がない場合は担当メール・確認メールは表示されなくなる。
'  If $m.IsAccessModify
'   Call formRadio $FirstFID "担当メール" $CheckAssigned -1 "Assigned$m.ID"
<br>
'   Call formRadio $FirstFID "確認メール" $CheckToDo -7 "ToDo$m.ID"
<br>
'  EndIf
'  Call formRadio $FirstFID "受信メール" $CheckReceived -5 "Received$m.ID"
'  If ! $MailProfile.Folder.Disable
<br>
'   Call formRadio $FirstFID "フォルダ" $CheckFolder 0 "Folder$m.ID"
&nbsp;
'   Call cmImage "item16.png"
<select name="SFID$m.ID" onChange="document.getElementById('Folder$m.ID').checked=true;">
'   $FolderOptions = $Command.Mail.GetFolderOptions $m.ID $SFID 1
$_FolderOptions</select>
'  EndIf
</td></tr>
</table>
</p>
' Next
' If ! $WorkSpace.Customer.Disable
<p>
'  Call cmImage "pin.png"
$WorkSpace.Customer.Name
<table border="0" cellspacing="0" cellpadding="4">
<tr><td><img src="$IMG_PATH/spacer.gif" width="25" height="25"></td>
<td width="250" valign="top" nowrap>最初に表示する一覧</td><td valign="top" nowrap>
'  $System.SetParameter FCGIDName "FirstCGID$WID"
<select name="$FCGIDName">
'  $FirstCGID = $u.$FCGIDName
'  If $FirstCGID = -1
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="-1" $Sel>会社一覧
'  If $FirstCGID = -3
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="-3" $Sel>担当(会社)
'  Options $FirstCGID in $Customer.Company.Groups
'  If $FirstCGID
'   If ( $FirstCGID > 0 ) and ( ! $Customer.Company.Groups.$FirstCGID ) and ( ! $Customer.Person.Groups.$FirstCGID )
'    $Sel = "Selected"
'   Else
'    $Sel = ""
'   EndIf
'  Else
'   $Sel = "Selected"
'  EndIf
<option value="0" $Sel>顧客一覧
'  If $FirstCGID = -2
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="-2" $Sel>担当(顧客)
'  Options $FirstCGID in $Customer.Person.Groups
</select>
</td></tr>
</table>
</p>
' EndIf
' Call formCommit "設定する"
</form>
' Call cmChildFooter $BackURL "個人設定へ"
</body>
</html>