' $System.Access Login
' $WorkSpace.AccessManage
<!--#include file="LibraryListBox.html"-->
' Set $MailProfile = $Command.Mail.GetMailTop $ID $System.IsPost
' If $FID
'  Set $Folder = $Command.Mail.GetFolder $ID $FID $System.IsPost
' Else
'  Set $Folder = $MailProfile.Folder
' EndIf
' If $System.IsPost
'  Call lbFuncPost $CFID $Folder.Folders "" "" "" "page=ManageMailFolderOrder&wid=$WID&id=$ID&fid=$FID&cfid=$CFID"
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "フォルダの順番変更"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailFolder&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "フォルダの設定"
' $System.CloseDatabase "mw"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageMailFolderOrder">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<input type="hidden" name="FID" value="$FID">
<p>
' If $FID
'  Call cmImage "folder20.png"
<b>$Folder.Name</b> 下のフォルダの順番を設定してください。</p>
' Else
'  Call cmImage "folder20.png"
<b>(ルートフォルダ)</b> 下のフォルダの順番を設定してください。</p>
<img src="$IMG_PATH/spacer.gif" width="20">
'  Call cmImage "folder20.png"
<b>$Folder.Default.Name</b> (変更できません)
' EndIf
' Call ListBox "CFID" $Folder.Folders $CFID 1
</form>
' Call cmChildFooter $BackURL "フォルダの設定へ"
</body>
</html>