<!--#include file="PartsMailCondition.html"-->
' $Rows = 50
' Init $Head = 0
' $Next = $Head + $Rows
' If $Head > $Rows
'  $Prev = $Head - $Rows
' EndIf
<script language="JavaScript" type="text/javascript"><!--
function onSubmit( form )
{
	if( ! form.Name.value )
	{
		alert( "条件名を入力してください。" );
		return;
	}
	form.submit();
}
function onChange( form )
{
	var i = form.TID.selectedIndex;
	var val = form.TID.options[i].value;
	if( val == -1 )
	{
		form.Head.value = "$Prev";
		form.Mode.value = "select";
		form.submit();
	}
	else if( val == -2 )
	{
		form.Head.value = "$Next";
		form.Mode.value = "select";
		form.submit();
	}
}
-->
</script>
' Sub SetTemplateRule $MailProfile $Rule
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Remove" value="">
<input type="hidden" name="Head" value="">
<input type="hidden" name="SelectTID" value="">
' If $CC
<input type="hidden" name="CC" value="$CC">
' Elif $Rule
'  Set $Conditions = $Rule.Conditions
'  $Name = $Rule.Name
'  $OR = $Rule.OR
'  $Fuzzy = $Rule.Fuzzy
'  $UID = $Rule.UID
<input type="hidden" name="CC" value="$Conditions.Count">
' Else
<input type="hidden" name="CC" value="1">
' EndIf
<table border="0" cellspacing="0" cellpadding="2">
<tr><td valign="top" nowrap>条件名
' Call formNecessaryMark
</td><td colspan="3">
' Call formText "Name" $Name 20 1
<br><font size="-1" color="#008800">条件の名前を自由に指定してください。</font>
</td></tr>
<tr><td colspan="4"><br></td></tr>
<tr><td valign="top" nowrap>条件内容</td><td colspan="3">
<!--#include file="LibrarySearchCondition.html"-->
' Call searchCondition
</td></tr>
' If $CC
'  $Num = $CC - 1
'  For $i = 0 to $Num
'   $IID = $System.GetParameter IID$i
'   $Text = $System.GetParameter Text$i
'   $Expr = $System.GetParameter Expr$i
'   $Value = $System.GetParameter Value$i
'   Call QueryConditionRow $MailProfile $i $IID $Text $Expr $Value $Num "TemplateRule" "" 1
'  Next
' Elif $Conditions
'  $CC = 0
'  If $Conditions.Count
'   $Num = $Conditions.Count - 1
'  Else
'   $Num = 0
'  EndIf
'  For Each $Cond in $Conditions
'   $IID = $Cond.IID
'   $Text = $Cond.Text
'   $Value = $Cond.Value
'   Call QueryConditionRow $MailProfile $CC $IID $Text $Cond.Expr $Value $Num "TemplateRule" "" 1
'   Inc $CC
'  Next
' EndIf
' If ! $CC
'  Call QueryConditionRow $MailProfile 0 $IID $Text $Expr $Value 0 "TemplateRule" "" 1
' EndIf
<tr><td><br></td><td colspan="3">
' Call cmButton "条件を追加する" "Mode.value='add';this.form.submit();"
</td></tr>
<tr><td colspan="4"><br></td></tr>
<tr><td valign="top" nowrap>選択テンプレート</td><td colspan="3">
<select name="TID" onChange="onChange( this.form );">
' Set $Templates = $Command.Template.GetTemplates $WID 0
' Init $SelectTID = $Rule.TID
' If $SelectTID >= 0
'  $TID = $SelectTID
' EndIf
' Set $Template = $Templates.$TID
' $Selected = "Selected"
' If $TID >= 0
'  $Selected = ""
<option value="$TID">\\
'  If $Template
$Template.Name
'  Else
(未設定)
'  EndIf
<option value="$TID">--------
' EndIf
' If $Head
<option value="-1">(<< 前の$Rows件)
' Else
<option value="0" $Selected>(未設定)
'  If $Selected
'   $Selected = ""
'  EndIf
' EndIf
' $Count = 0
' For Each $Template in $Templates
'  If $Count < $Head
'   Inc $Count
'   Continue
'  EndIf
'  If $Count >= $Next
'   Exit
'  EndIf
'  Inc $Count
<option value="$Template.ID" $Selected>$Template.Name
'  If $Selected
'   $Selected = ""
'  EndIf
' Next
' If ( $Count >= $Next ) and ( $Count < $Templates.Count )
<option value="-2">(次の$Rows件 >>)
' EndIf
</select>
' Call cmButton "一覧から選択する" "window.open( '$Server?page=ManageMailTemplateAutoSelect&wid=$WID', 'TemplateSelect', 'width=800,height=600,resizable=yes,scrollbars=yes,status=yes,toolbar=yes' );"
</td></tr>
</table>
' EndSub