' $System.Access Template
' If $System.IsPost
'  Set $MailProfile = $Command.Mail.GetMailTop $BS
'  If ! $MailProfile.File.Disable
'   If $DID
'    $Command.Mail.SetTemplateFiles
'   Else
'    $Command.Post.SetTemplateFiles
'   EndIf
'  EndIf
'  $System.ContentType
' EndIf
' $System.SetParameter Arg "&bs=$BS"
' If $DID
'  $System.SetParameter Arg "$Arg&mid=$MID&dbid=$DBID&type=$Type&did=$DID"
' ElIf $PDID
'  $System.SetParameter Arg "$Arg&pdid=$PDID"
' EndIf
' Set $PersonalMail = $Command.Mail.GetPersonalMail $BS
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' If $System.IsPost
'  $PersonalMail.CTID = $CTID
'  $PersonalMail.Insert = $Pos
'  If $DID
'   Set $Draft = $Command.Mail.GetDraft $BS $DID
'  Else
'   Set $Draft = $Command.Post.GetDraft $WID $PDID
'  EndIf
' Call cmLoadJavaScript "window"
<script language="JavaScript" type="text/javascript"><!--
if ( IsAliveWindow( window.parent.opener ) )
{
'  If ! $MailProfile.File.Disable
	var openerform = window.parent.opener.document.forms['MailSend'];
	if( openerform )
	{
		var options = openerform.FileID.options;
		var length = options.length
		var i = 0;
'   For Each $f in $Draft.Files
'    $escFileName = $Command.String.JSEscape $f.FileName
		i++;
		if( i >= length )
		{
'    If $Env.IsMSIE
			var option = window.parent.opener.document.createElement( "OPTION" );
			option.value = "$f.ID";
			option.text = "$_escFileName";
			options.add( option, length - 1 );
'    Else
			options[length] = new Option( options[length-1].text, "" );
			options[length-1] = new Option( "$_escFileName", $f.ID );
'    EndIf
			length++;
		}
'   Next
	}
'  EndIf
}
window.parent.close();
//-->
</script>
</head>
</html>
'  Exit
' EndIf
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "テンプレートの参照"
' Call cmHead $CaptionTitle
' $System.SetParameter BackURL "$Server?page=TemplateSelect&wid=$WID&ctid=$CTID&head=$Head$$Arg"
' If $Text
'  $Encode = $Command.String.Encode $Text
'  $System.SetParameter BackURL "$BackURL&text=$Encode"
' EndIf
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' Set $Template = $Command.Template.GetTemplate $WID $TID
' $Name = $Template.Name
' $Subject = $Template.Subject
' $SetSubject = $Template.SetSubject
' If $Template.HtmlData And ! $MailProfile.NoRichText
'  $HtmlData = 1
'  $Data = $Template.HtmlData
' Else
'  $HtmlData = 0
'  $Data = $Template.Data
' EndIf
' If $DID
'  If $SetSubject
'   $Command.Mail.TranslateArgs "Subject" "Data" $HtmlData
'  Else
'   $Command.Mail.TranslateArgs "Data" $HtmlData
'  EndIf
'  $Data = $Command.Mail.CutLineString $BS $Data
' Else
'  $Command.Template.Include $HtmlData
' EndIf
' Call cmLoadJavaScript "tiny_mce/jquery.tinymce"
' Call cmLoadJavaScript "component/richedit"
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form, selectpos, val, subject, isRichText )
{
    var i = selectpos.selectedIndex;
    var pos = selectpos.options[i].value;
    var openerform = window.parent.opener.document.forms['MailSend'];
    if( openerform )
    {
' If $SetSubject
      openerform.elements['Subject'].value = subject;
' EndIf
      var dataarea = openerform.elements['Data'];
      var richtext = openerform.elements['RichText'];

      if (richtext && richtext.value == "1" && dataarea.tinyMCE) {
        if (isRichText == 0) {
          val = mw.Richedit.textToHtml(val);
        }
        var mce = dataarea.tinyMCE;
        if( pos == 'Cursor' )
        {
            mce.execCommand('mceBeginUndoLevel');
            mce.execCommand('mceInsertContent', false, val);
            mce.execCommand('mceEndUndoLevel');
        }
        else if( pos == 'Tail' )
        {
            mce.setContent(mce.getContent() + val);
        }
        else if( pos == 'Head' )
        {
            mce.setContent(val + mce.getContent());
        }
        else
        {
            mce.setContent(val);
        }
      } else {
        if (isRichText != 0) {
          val = mw.Richedit.htmlToText(val);
        }
        if( pos == 'Cursor' )
        {
' If ($Env.IsMSIE)
            dataarea.focus();
            
            var doc = window.parent.opener.document;
            var docRange = doc.selection.createRange();
            var textRange = doc.body.createTextRange();
            
            textRange.moveToElementText(dataarea);
            textRange.setEndPoint('StartToStart', docRange);
            textRange.setEndPoint('EndToStart', docRange);

            textRange.text = val;
' Else
            var n = dataarea.selectionStart;
            var before  = dataarea.value.substring(0, n);
            var after   = dataarea.value.substring(n, dataarea.value.length);
            dataarea.value = ( before + val + after);
            var nValue = val.length;
            dataarea.setSelectionRange(n + nValue, n + nValue);
' EndIf
        }
        else if( pos == 'Tail' )
        {
            dataarea.value += val;
        }
        else if( pos == 'Head' )
        {
            dataarea.value = ( val + dataarea.value );
        }
        else
        {
            dataarea.value = val;
        }
        dataarea.focus();
      }
    }
    form.Pos.value = pos;
    form.submit();
}
//-->
</script>
</head>
<body>
' Call cmChildHeader
' $System.CloseDatabase "mw"
' If $SetSubject
'  $JSSubject = "Subject.value"
' Else
'  $JSSubject = 0
' EndIf
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="TemplatePreview">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="PDID" value="$PDID">
<input type="hidden" name="BS" value="$BS">
' If $DID
<input type="hidden" name="MID" value="$MID">
<input type="hidden" name="DBID" value="$DBID">
<input type="hidden" name="Type" value="$Type">
<input type="hidden" name="DID" value="$DID">
' EndIf
<input type="hidden" name="TID" value="$TID">
<input type="hidden" name="CTID" value="$CTID">
<input type="hidden" name="Pos" value="">
' $Pos = $PersonalMail.Insert
' Sub menuTemplate $SelName
このテンプレートをメールの本文の\\
<select name="$SelName">
<option value="Head">先頭に
<option value="Tail" $Pos.Selected_Tail>文末に
<option value="Cursor" $Pos.Selected_Cursor>カーソル位置に
<option value="Overwrite" $Pos.Selected_Overwrite>内容を上書きして
</select>
'  Call cmButton "挿入する" "onSubmit( this.form, this.form.$SelName, Template.value, $JSSubject, RichText.value );"
' EndSub
' Call menuTemplate "PosHead"
<p>
<table width="600" border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td width="100" class="title" valign="top" nowrap>名前</td><td width="100%">$Name</td></tr>
<tr><td width="100" class="title" valign="top" nowrap>件名</td><td width="100%">
' If $SetSubject
'  Call formText "Subject" $Subject 40 1
' Else
<font color="#888888">(設定しない)</font>
' EndIf
<br></td></tr>
<tr><td width="100" class="title" valign="top" nowrap>内容</td>
<td width="100%" nowrap>
<input type="hidden" name="RichText" value="$HtmlData" />
<textarea style="display:none" name="Template" cols="70" rows="20">
$Data\\
</textarea>
' If $HtmlData
<div class="re-content">
'  $Command.RichText.View $Data
</div>
' Else
'  View $Data
' EndIf
</td></tr>
' If ! $MailProfile.File.Disable
<tr><td width="100" class="title" valign="top" nowrap>ファイル</td><td width="100%">
'  $System.SetParameter Inline "Inline$WID"
'  For Each $f in $Template.Files
'   $System.FileLink $f "Template" $Login.$Inline 0 "&wid=$WID" 1
<br>
'  Next
'  If ! $Template.Files.Count
<br>
'  EndIf
</td></tr>
' EndIf
</table>
</p>
' Call menuTemplate "PosTail"
</form>
' Call cmChildFooter $BackURL "テンプレートの選択へ"
</body>
</html>