' $System.Access Post
' $Command.Post.AccessModify $WID $PCID
' If $System.IsPost
'  $FileID = $Command.Post.AddDraftFile
'  $System.ContentType
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $System.IsPost
'  Set $Draft = $Command.Post.GetDraft $WID $PDID
'  Set $f = $Draft.Files.$FileID
' Call cmLoadJavaScript "window"
<script language="JavaScript" type="text/javascript"><!--
'  $escFileName = $Command.String.JSEscape $f.FileName
'  If $escFileName
if ( IsAliveWindow( window.parent.opener ) )
{
	var openerform = window.parent.opener.document.forms['MailSend'];
	if( openerform )
	{
		var options = openerform.FileID.options;
		var length = options.length
		var option = window.parent.opener.document.createElement( "OPTION" );
		option.value = "$FileID";
		option.text = "$_escFileName";
		options.add( option, length - 1 );
	}
}
'  EndIf
window.parent.close();
//-->
</script>
</head>
</html>
'  Exit
' EndIf
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "ファイルの添付"
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmChildHeader $CaptionTitle
' $System.CloseDatabase "mw"
<form method="post" action="$Server?" enctype="multipart/form-data">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="PostFileAdd">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="PDID" value="$PDID">
<input type="hidden" name="PCID" value="$PCID">
<p>メールに添付するファイルを入力してください。</p>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>ファイル</td><td nowrap>
' Call formFile "File"
</td></tr>
</table>
' Call formCommit "追加する" "" "" "window.parent.close();"
</form>
' Call cmChildFooter
</body>
</html>