' $System.Access Mail
' If $WMI
'  Set $BP = $Command.Personal.SetBackPage $WMI "MailIndex"
'  $BP.Args.st = $ST
'  $BP.Args.sts = $STS
'  $BP.Args.fid = $FID
'  $BP.Args.view = $View
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BPT = $BP.TimeStamp
' EndIf
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
'  $BPPage = $BP.Page
'  $BPParam = $BP.Param
' EndIf
' If $System.IsPost
'  If $Operation = "Delete"
'   $Command.Mail.AccessDelete $BS
'   $System.Redirect $Server?page=MailSearch&wid=$WID&bs=$BS&st=$ST&bpt=$BPT&reset=1
'   $Command.Mail.RemoveSelectedMail
'   Exit
'  Elif $Operation = "Setting"
'   $Command.Mail.AccessModify $BS
'   $System.Redirect $Server?page=MailPropertySetEach&wid=$WID&bs=$BS&st=$ST&bpt=$BPT&head=$Head&hid=$HID&bpage=$Page
'   $Command.Mail.SetCheckedMails
'   Exit
'  Elif $Mode or ( $Mode = 0 )
<!--#include file="PartsChangeCondition.html"-->
'   $System.ContentType
'  Else
'   $ST = $Command.Mail.SetSearchCondition
'   $System.Redirect $Server?page=MailSearch&wid=$WID&bs=$BS&vid=$VID&st=$ST&bpt=$BPT
'   Exit
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryNavigation.html"-->
' Call cmHtmlHead
' If $ST
'  $Progress = $Command.Mail.Search $BS $ST $Head $HID
'  If $Progress
<meta http-equiv="Refresh" content="0;URL=$Server?page=MailSearch&wid=$WID&bs=$BS&vid=$VID&ST=$ST&bpt=$BPT&head=$Head&hid=$HID">
'  EndIf
' EndIf
<!--#include file="PartsMailCondition.html"-->
' $CaptionTitle = "メールの検索"
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript">
<!--
function IsChecked( form )
{
	var e = form.elements;
	var l = e.length;
	for( i = 0 ; i < l ; i ++ ) { if( e[i].name == "MID" && e[i].checked ) { return true; } }
	alert( 'メールをチェックしてください。' );
	return false;
}
function onSetting( form )
{
	if( IsChecked( form ) )
	{
		form.Operation.value = 'Setting';
		form.ST.value = "$ST";
		form.submit();
	}
}
function onDelete( form )
{
	if( IsChecked( form ) )
	{
		if( confirm( 'チェックしたメールを全て削除します。よろしいですか？' ) )
		{
			form.Operation.value = 'Delete';
			form.ST.value = "$ST";
			form.submit();
		}
	}
}
function DisplayFolder()
{
	var e = document.getElementById( 'FOLDER' );
	if( e && e.style )
	{
		e.style.display="";
	}
}
function HideFolder()
{
	var e = document.getElementById( 'FOLDER' );
	if( e && e.style )
	{
		e.style.display="none";
	}
}
function initializeFolder()
{
	var form = document.forms["MailSearch"];
	if (!form) return;
	if(form.Garbages && form.Garbages.checked == true)
	{
		HideFolder();
	}
	else
	{
		DisplayFolder();
	}
}
//-->
</script>
</head>
<body onLoad="initializeFolder()">
' If $BPPage = "MailIndex"
'  $System.SetParameter BackURL "$Server?page=$BPPage&wid=$WID&bs=$BS&vid=$VID$$BPParam"
' Else
'  $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID"
' EndIf
' Call cmHeader $CaptionTitle $BackURL $WorkSpace.Mails.$BS.Name
' $System.CloseDatabase "mw"
''
' If $Progress
'  Sub progressColumn
<p>現在、絞込を実行中です。しばらくお待ちください。</p>
<!--#include file="PartsProgress.html"-->
'  EndSub
'  Call layout_msg "" "" 0 progressColumn
'  Call cmFooter
</body>
</html>
'  Exit
' EndIf
''
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' If $ST
'  Set $Search = $Command.Mail.GetPersonalSearch $BS $ST
'  Set $Conditions = $Search.Conditions
'  $Name = $Search.Name
'  $Type = $Search.Type
'  $FID = $Search.FID
'  $SF = $Search.SF
'  $OR = $Search.OR
'  $Fuzzy = $Search.Fuzzy
'  $Span = $Search.Span
'  $SetDate = $Search.SetDate
'  $EndDate = $Search.EndDate
' EndIf
<form name="MailSearch" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailSearch">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Remove" value="">
<input type="hidden" name="Operation" value="">
<input type="hidden" name="ST" value="">
' If $ST
<input type=hidden name=CC value="$Conditions.Count">
' Elif $CC
<input type="hidden" name="CC" value="$CC">
' Else
<input type="hidden" name="CC" value="1">
'  $SF = 1
'  $Type = "Received"
'  $Span = 3
' EndIf
''
' Sub formColumn
<table class="formTable">
<tr><th nowrap>検索対象</th><td nowrap>
' Call formRadio "Type" "受信メール" $Type.Checked_Received "Received" "Received" "DisplayFolder();"
' Call formRadio "Type" "送信メール" $Type.Checked_Sent "Sent" "Sent" "DisplayFolder();"
' Call formRadio "Type" "送受信メール" $Type.RChecked "" "Both" "DisplayFolder();"
' If ! $VID
'  Call formRadio "Type" "ごみ箱のメール" $Type.Checked_Garbages "Garbages" "Garbages" "HideFolder();"
' EndIf
</td></tr>
' If ! $MailProfile.Folder.Disable
<tr id="FOLDER"\\
'  If $Env.IsMSIE and ( $Type = "Garbages" )
style="display:none;"\\
'  EndIf
><th valign="top" nowrap>フォルダ</th>
<td nowrap>
<select name="FID">
'  If $FID = -9
'   $Sel = "Selected"
'  Else
'   $Sel = ""
'  EndIf
<option value="-9" $Sel>(全て)
'  $FolderOptions = $Command.Mail.GetFolderOptions $BS $FID 1 1
$_FolderOptions</select>
&nbsp;
'  Call formCheckBox "SF" "サブフォルダも検索する" $SF 1 "SF"
</td></tr>
' Else
<input type="hidden" name="FID" value="-9">
' EndIf
<tr><th width="100" valign="top" nowrap>検索期間</th>
<td nowrap>
'  Call formRadio "Span" "本日" $Span.Checked_1 1 "today"
'  Call formRadio "Span" "過去1週間" $Span.Checked_2 2 "week"
'  Call formRadio "Span" "過去1ヶ月" $Span.Checked_3 3 "month"
'  Call formRadio "Span" "過去3ヶ月" $Span.Checked_7 7 "three"
'  Call formRadio "Span" "過去6ヶ月" $Span.Checked_8 8 "six"
'  Call formRadio "Span" "過去1年" $Span.Checked_4 4 "year"
'  Call formRadio "Span" "全て" $Span.Checked_5 5 "all"
<br>
'  Call formRadio "Span" "期間指定" $Span.Checked_6 6 "date"
(
'  Call formDateSpan "SetDate" "EndDate" "MailSearch" 0 $SetDate $EndDate "Span[7].checked=true;"
)
</td></tr>
<tr>
<th width="100" valign="top" nowrap>検索条件</th>
<td nowrap>\\
<!--#include file="LibrarySearchCondition.html"-->
<table border="0" cellspacing="0" cellpadding="5" width="100%">
<tr><td>
' Call searchCondition
</td></tr>
<tr><td>
 <table border="0" cellspacing="0" cellpadding="0">
' 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 "MailSearch" "Operation.value='';"
'  Next
' Elif $Conditions
'  $CC = 0
'  If $Conditions.Count
'   $Num = $Conditions.Count - 1
'  Else
'   $Num = 0
'  EndIf
'  For Each $Cond in $Conditions
'   Call QueryConditionRow $MailProfile $CC $Cond.IID $Cond.Text $Cond.Expr $Cond.Value $Num "MailSearch" "Operation.value='';"
'   Inc $CC
'  Next
' EndIf
' If ! $CC
'  Call QueryConditionRow $MailProfile 0 $IID $Text $Expr $Value 0 "MailSearch" "Operation.value='';"
' EndIf
 </table>
</td></tr>
<tr><td>
' Call cmButton "条件を追加する" "Mode.value='add';Operation.value='';this.form.submit();"
</td></tr>
</table>
</td></tr>
</table>
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "検索する" "" "Mode.value='';Operation.value='';" "location.href='$escBackURL';"
' EndSub
''
' Sub mainColumn
<div class="desc">メールの検索をおこないます。検索条件を指定してください。</div>
' If $WorkSpace.Mails.$BS.StorageCount and ( ! $VID )
<div class="desc">この検索は、現在のデータを対象としています。</div>
' EndIf
' Call formColumn
' If $ST and ( ! $Reset )
'  $Count = $Search.Count
'  Init $Count = 0
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr class="active"><td>検索結果\\
(全$Count件)\\
'  $SD = $MailSearch.SetDate
'  $ED = $MailSearch.EndDate
'  If $SD or $ED
'   If $SD
$SD.Year/$SD.Month/$SD.Day\\
'   EndIf
～\\
'   If $ED
$ED.Year/$ED.Month/$ED.Day\\
'   EndIf
'  EndIf
</td></tr>
</table>
<!--#include file="PartsMailIndex.html"-->
'  Set $MailProfile = $Command.Mail.GetMailTop $BS
'  $Rows = $MailProfile.Rows
'  Init $Rows = 50
'  If $Type = "Garbages"
'   $FID = -3
'  EndIf
'  $ViewIndex.WID = $WID
'  Set $rs = $Command.Mail.GetSearchResult $BS $ST $Rows $Head $HID
'  $ViewIndex.Prev = $rs.Prev
'  $ViewIndex.PID = $rs.PID
'  $ViewIndex.Next = $rs.Next
'  $ViewIndex.NID = $rs.NID
'  Call operation "Head"
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  For Each $m in $rs
'   Set $v = $ViewIndex.Add
'   $v.AID = $BS
'   $v.OID = $m.OID
'   $v.DBID = $m.DBID
'   $v.Type = $m.Type
'  Next
'  $Command.Mail.CloseIndexDatabase $BS
'  Call viewMailTitle $BS $MailProfile $FID 1 0 "&st=$ST" $captionSet "MailSearch"
'  Call viewMailIndex $BS $MailProfile $ViewIndex $FID "&st=$ST&head=$Head&hid=$HID&wms=$Login.ID" $MID $captionSet
'  Call viewMailTitle $BS $MailProfile $FID 1 0 "&st=$ST" $captionSet "MailSearch"
</table>
'  Call operation "Tail"
' Else
'  If $WorkSpace.Mails.$BS.StorageCount and ( ! $VID )
<!--#include file="LibraryBackNavigation.html"-->
<div class="desc">
'   Call mailStorageNavigation $WID $BS ""
</div>
'  EndIf
' EndIf
' EndSub
''
' Call layout_view "" "" 0 mainColumn
</form>
' If $VID
'  Call cmChildFooter $BackURL "メールの一覧へ"
' Else
'  Call cmFooter $BackURL "メールの一覧へ"
' EndIf
</body>
</html>
''
' Sub operation $argPos
   <table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr class="active">
'  Call operationCheckedInner $argPos
'  Call showBackNavigation
'  Call showNavigation
    </tr>
   </table>
' EndSub
''
' Sub captionChecked $argPos
'  If ! $captionSet
<td width="1%" nowrap>
<span class="pointing">
'   If $argPos = "Head"
'    Call cmImage pointing_t.png
'   Else
'    Call cmImage pointing_b.png
'   EndIf
</span></td>
'   $captionSet = 1
'  EndIf
' EndSub
''
' Sub operationCheckedInner $argPos
'  If ( ! $VID ) and ( $FID != -3 )
'   Set $MailSystem = $WorkSpace.Mails.$BS
'   If $MailSystem.IsAccessModify or $MailSystem.IsAccessDelete
'    $CheckBox = 1
'   EndIf
'  EndIf
'  If ! $CheckBox
'   Exit
'  EndIf
'   $captionSet = 0
'   If $MailSystem.IsAccessDelete
'    Call captionChecked $argPos
<td width="1%" nowrap>
'    Call cmButton "削除する" "onDelete( this.form );"
&nbsp;</td>
'   EndIf
'   If $MailSystem.IsAccessModify
'    Call captionChecked $argPos
<td width="1%" nowrap>
'    Call cmButton "一括設定する" "onSetting( this.form );"
</td>
'   EndIf
' EndSub
''
' Sub showNavigation
<!--#include file="LibraryNavigation.html"-->
'  Call Navigation $ViewIndex "&bs=$BS&st=$ST" $Rows
' EndSub
''
' Sub showBackNavigation
' If $WorkSpace.Mails.$BS.StorageCount and ( ! $VID )
<!--#include file="LibraryBackNavigation.html"-->
<td width="1%" nowrap>\\
'  Call cmImage menu_sep.png "" "" "" "" "" "" "menusep"
</td>
<td width="1%" nowrap>\\
'  Call mailStorageNavigation $WID $BS ""
</td>
' EndIf
' EndSub