' $System.Access Template
' $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
' If $Text
'  $Encode = $Command.String.Encode $Text
' EndIf
' If $System.IsPost
'  If $TID
'   If $Address
'    $Command.Mail.SetDraftTo $BS $DID $Address
'   EndIf
'   $System.Redirect $Server?page=TemplatePreview&wid=$WID&pdid=$PDID&ctid=$CTID&tid=$TID&head=$Head&text=$Encode$$Arg
'  Else
'   If $Text
'    $System.SetParameter Arg "$Arg&searchitem=$SearchItem&text=$Encode"
'   EndIf
'   $System.Redirect $Server?page=$Page&wid=$WID&ctid=$CTID$$Arg
'  EndIf
'  Exit
' EndIf
' If $OpenFID
'  $Command.Template.OpenFolder $WID $OpenFID
' Elif $CloseFID
'  $Command.Template.CloseFolder $WID $CloseFID
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "テンプレートの選択"
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onSelect( stid )
{
	var openerform = window.parent.opener.document.forms['MailSend'];
	if( openerform )
	{
		var form = document.forms['SelectTemplate'];
		form.elements['TID'].value = stid;
' If $DID
		form.elements['Address'].value = openerform.elements['To'].value;
' EndIf
		form.submit();
	}
}
//-->
</script>
</head>
<body>
' Call cmChildHeader
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' If ( ! $CTID ) and ( $CTID != 0 )
'  Set $PersonalMail = $Command.Mail.GetPersonalMail $BS
'  $CTID = $PersonalMail.CTID
' EndIf
' Sub SelectedCategory $sfName
 <tr class="selected"><td nowrap>
 <img src="$IMG_PATH/category20.png"><b>$sfName</b>
 </td></tr>
' EndSub
<form name="SelectTemplate" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="TemplateSelect">
<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="CTID" value="$CTID">
<input type="hidden" name="Head" value="$Head">
<input type="hidden" name="TID" value="">
<input type="hidden" name="Address" value="">
<p>メールの本文に挿入するテンプレートを選択してください。</p>
<p><table border="0" width="100%" cellspacing="0" cellpadding="4"><tr>
'' <!---------------------左側----------------------------->
<td class="active" width="10%" valign="top">
 <table width="100%" border="0" cellspacing="0" cellpadding="2">
' If $CTID
<tr><td nowrap>
'  Call cmLink "(全テンプレート)" "category20.png" "$Server?page=$Page&wid=$WID&ctid=0$Arg"
' Else
<tr class="selected"><td nowrap>
'  Call cmImage "category20.png"
<b>(全テンプレート)</b>
' EndIf
</td></tr>
' $CategoryTree = $Command.Template.GetCategoryView $WID $CTID $Arg
$_CategoryTree
 </table><br>
</td>
'' <!---------------------右側----------------------------->
<td width="90%" valign="top" nowrap>
' Set $Templates = $Command.Template.GetTemplates $WID $CTID
' If $Text or ( $Text = "0" )
'  $Templates.SearchText = $Text
' EndIf
' Call cmImage "search20.png"
' Call formText "Text" $Text 20 1
' Call formSubmit "Search" "検索"
 <table width="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
 <tr class="title"><td nowrap><b>名前</b></td>
' If ! $CTID
<td nowrap><b>カテゴリ</b></td>
' EndIf
 </tr>
' Init $Head = 0
' $Rows = 50
' $Tail = $Rows + $Head
' $Count = 0
' $RowNum = 0
' For Each $Template in $Templates
'  If $Count < $Head
'   Inc $Count
'   Continue
'  EndIf
'  If $Count >= $Tail
'   $Next = $Count
'   Exit
'  EndIf
'  Inc $Count
'  Inc $RowNum
'  $Remainder = $Command.Math.Modulus $RowNum 2
'  If $Remainder = 0
'   $RowClass = "evenRow"
'  Else
'   $RowClass = "oddRow"
'  EndIf
<tr class="$RowClass underline"><td nowrap>
'  Call cmLink $Template.Name "template20.png" "javascript:onSelect( '$Template.ID' );"
 </td>
'  If ! $CTID
<td nowrap>$Template.Category.Name<br></td>
'  EndIf
 </tr>
' Next
 </table>
 <table width="100%" border="0" cellspacing="0" cellpadding="4">
 <tr><td nowrap>
 <div style="line-height:1.5em">
' If $Head
 <a href="$Server?page=$Page&wid=$WID&ctid=$CTID&text=$Encode$$Arg">先頭へ</a> |
'  If $Head > $Rows
'   $Prev = $Head - $Rows
 <a href="$Server?page=$Page&wid=$WID&ctid=$CTID&text=$Encode&head=$Prev$$Arg">&lt;&lt; 前の$Rows件へ</a>
'  Else
 <a href="$Server?page=$Page&wid=$WID&ctid=$CTID&text=$Encode$$Arg">&lt;&lt; 前の$Rows件へ</a>
'  EndIf
' Else
<font color="#888888">先頭へ | &lt;&lt; 前の$Rows件へ</font>
' EndIf
' If $Next
| <a href="$Server?page=$Page&wid=$WID&ctid=$CTID&text=$Encode&head=$Next$$Arg">次の$Rows件へ &gt;&gt;</a>
'   Else
 <font color="#888888">| 次の$Rows件へ &gt;&gt;</font>
'   EndIf
 </div>
 </td></tr>
 </table>
</td>
</tr></table></p>
</form>
' Call cmChildFooter
</body>
</html>