' $System.Access Mail
' If $System.IsPost
'  $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID&view=$View&sts=$STS
'  $Command.Mail.SetInformation
'  Exit
' EndIf
' $AppliName = $WorkSpace.Mails.$BS.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "お知らせの変更"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID&view=$View&sts=$STS"
' Call cmHeader $CaptionTitle $BackURL $AppliName
' $System.CloseDatabase "mw"
' Set $MWIndex = $Command.Mail.GetWorkIndexTop $BS
''
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailInformationSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="FID" value="$FID">
<input type="hidden" name="View" value="$View">
<input type="hidden" name="STS" value="$STS">
' Sub mainColumn
<div class="desc">お知らせの内容を入力してください。</div>
' Call formText "Information" $MWIndex.Information 80 10
' Call formCommit "変更する"
' EndSub
' Call layout_view "" "" 0 mainColumn
</form>
' Call cmFooter $BackURL "メールの一覧へ"
</body>
</html>