' $System.Access WorkSpace
' If $WMV
'  Set $BP = $Command.Personal.SetBackPage $WMV "MailView"
'  $BP.Args.bs = $BS
'  $BP.Args.mid = $BMID
'  $BP.Args.dbid = $BDBID
'  $BP.Args.type = $BType
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' EndIf
' If $bbs
'  $localBS = $bbs
' Elif $BS
'  $localBS = $BS
' EndIf
' Set $BP = $Command.Personal.GetBackPage $BPT
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryToolBar.html"-->
<!--#include file="LibraryNavigation.html"-->
' $CaptionTitle = "メールの履歴一覧"
' Call cmHead $CaptionTitle
</head>
<body>
' If $BP
'  $System.SetParameter BackURL "$Server?page=MailView&wid=$WID&vid=$VID$$BP.Param"
'  Set $BPI = $Command.Personal.SearchBackPage $BPT "MailIndex"
'  $System.SetParameter URLMailIndex "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID$$BPI.Param"
'  $BackTitle = "メールの詳細へ"
'  Call cmHeader $CaptionTitle $URLMailIndex $WorkSpace.Mails.$BS.Name $BackURL "メールの詳細"
' Else
'  $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&vid=$VID"
'  $BackTitle = "メールの一覧へ"
'  Call cmHeader $CaptionTitle $BackURL $WorkSpace.Mails.$BS.Name
' EndIf
' $Rows = 20
' If ! $Text
'  $Text = $Command.Mail.GetTempCustomerMail $BS $CTID $TDBID
' EndIf
' $ViewIndex.WID = $WID
' $ViewIndex.SetTempHistoryView $BS $CTID $TDBID $AID $Rows $Head $HAID $HID
' $Command.Customer.CloseDatabase
' Init $CAID = $BID
' Init $COID = $BMID
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' If ( $WorkSpace.Mails.Count > 1 ) or ( ! $WorkSpace.Post.Disable )
'  $Select = 1
' Else
'  $AID = $BS
' EndIf
' If $AID
'  If $AID = $CAID
'   $CurID = $COID
'  EndIf
' EndIf
''
' Sub commonColumn
<form method="post" action="$Server?" onSubmit="if( ! Text.value ){ return false; }">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="CustomerSearchIndex">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
'  Call menuColumn
</form>
' EndSub
''
' Sub menuColumn
' If $VID
'  Exit
' EndIf
<table class="menuColumn"><tr>\\
'  Call tbCreateMail $BS "&aid=$AID&ctid=$CTID&tdbid=$TDBID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wmc=$Login.ID&text=$Text"
<td align="right" nowrap>\\
'  Call tbSearchCustomer
</td></tr></table>
' EndSub
''
' Sub mainColumn
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr class="active">
' $Count = $ViewIndex.HistoryCount
<td nowrap><b>$Text</b> の履歴情報 ($Count件)</td>
</tr>
</table>
' Call operation
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
'  Call titleRow
'' <!---------------------メールの絞込表示----------------------------->
' If $WorkSpace.Mails.$AID or ( ! $Select )
'  Call viewMailIndex $AID $MailProfile $ViewIndex -4 "&bbs=$localBS&aid=$AID&ctid=$CTID&tdbid=$TDBID&head=$Head&hid=$HID&haid=$HAID&caid=$CAID&coid=$COID&bpt=$BPT&wmc=$Login.ID" $CurID
'' <!---------------------一斉配信の絞込表示----------------------------->
' Elif $AID = -1
'  $RowNum = 0
'  For Each $h in $ViewIndex
'   If ! $h.Init
'    Continue
'   EndIf
'   Inc $RowNum
'   If ( $h.AID = $CAID ) and ( $h.OID = $COID )
'    $RowClass = "currentRow"
'   Else
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
'   EndIf
<tr class="$RowClass overline">
'   Call timeCell $Date $h.Key
<td valign="top" nowrap><font size="-1">\\
'   $UID = $h.UID
'   Set $u = $Users.$UID
'   If $u
$u.Name
'   Else
$h.UserName
'   EndIf
</font><br></td>
<td valign="top" nowrap><font size="-1">\\
'   Call cmLink $h.Subject "postmail20.png" "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$h.OID&bid=$BS&bbs=$localBS&ctid=$CTID&tdbid=$TDBID&aid=$AID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wmc=$Login.ID"
</font></td>
<td valign="top" nowrap><font size="-1">\\
'   Call cmLink "配信済み( $h.Count件/$h.TargetCount件 )" "" "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$h.OID&bid=$BS&bbs=$localBS&ctid=$CTID&tdbid=$TDBID&tab=to&aid=$AID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wmc=$Login.ID"
</font></td>
</tr>
'   Call commentRow $h.Comments 1 3
'  Next
'' <!---------------------全て----------------------------->
' Else
'  $RowNum = 0
'  For Each $m in $ViewIndex
'   Inc $RowNum
'   If ( $m.AID = $CAID ) and ( $m.OID = $COID )
'    $RowClass = "currentRow"
'   Else
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
'   EndIf
'' <!---------------------一斉配信の表示----------------------------->
'   $ID = $m.AID
<tr class="$RowClass overline">
'   Call timeCell $Date $m.Key
'   If $ID = -1
<td valign="top" nowrap>\\
'    If $m.Sent
'     $Image = "postmail20.png"
<span class="label">配信済み</span>\\
'    Else
'     $Image = "postmail_write20.png"
<font color="#008800">(作成中)</font>\\
'    EndIf
</td>
<td valign="top" nowrap><font size="-1">
'    $UID = $m.UID
'    Set $u = $Users.$UID
'    If $u
$u.Name
'    Else
$h.UserName
'    EndIf
</font><br></td>
<td><br></td><td valign="top" nowrap><font size="-1">
'    Call cmLink $m.Subject $Image "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$m.OID&bid=$BS&bbs=$localBS&ctid=$CTID&tdbid=$TDBID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wmc=$Login.ID"
</font></td>
<td valign="top" nowrap><font size="-1">$WorkSpace.Post.Name</font></td>
<td valign="top" nowrap><br></td>
'   Else
'' <!---------------------メールの表示----------------------------->
'    Set $MailProfile = $Command.Mail.GetMailTop $ID
<td valign="top" nowrap>
'    $Quick = $m.Quick
'    If $Quick = 1
<span class="label hurry">至急</span>\\
'    Elif $Quick = 2
<span class="label urgent">大至急</span>\\
'    EndIf
'    $Status = $m.Status
'    If $m.Type = "Sent"
'     $STColor = $MailProfile.ColorStatusSent
'     $STName = "(送信済み)"
'    Elif $Status = -1
'     $STColor = $MailProfile.ColorStatusWorking
'     $STName = "(処理中)"
'    Elif $Status = -2
'     $STColor = $MailProfile.ColorStatusFinished
'     $STName = "(処理済み)"
'    Elif $Status = -5
'     $STColor = $MailProfile.ColorStatusWaiting
'     $STName = "(送信待ち)"
'    Else
'     Set $ST = $MailProfile.Status.$Status
'     If $ST
'      $STColor = $ST.Color
'      $STName = $ST.Name
'     Else
'      $STColor = $MailProfile.ColorStatusToDo
'      $STName = "(未処理)"
'     EndIf
'    EndIf
'    If $STColor
<span class="label color$STColor">\\
'    Else
<span class="label color1">\\
'    EndIf
$STName</span>\\
'    If $m.ModifyUID
'     $MUID = $m.ModifyUID
'     If $Users.$MUID
'      If $STColor
<span class="editor color$STColor">*</span>\\
'      Else
<span class="editor color1">*</span>\\
'      EndIf
'     EndIf
'    EndIf
'   $NextUID = $m.NextUID
'   $NextUser = $Users.$NextUID.Name
'   If $NextUser
'    If $STColor
<span class="nextuser color$STColor">$NextUser</span>\\
'    Else
<span class="nextuser color1">$NextUser</span>\\
'    EndIf
'   EndIf
</td>
<td valign="top" nowrap><font size="-1">
'    $UID = $m.UID
'    Set $u = $Users.$UID
'    If $u
$u.Name
'    Else
$m.UserName
'    EndIf
</font><br></td>
<td valign="top" align="right">
'    If $m.Type = "Received"
'     $val = $Command.String.MakeLower $m.MIME
'     If $val = "multipart/mixed"
''     If $m.MIME = "multipart/mixed"
<img src="$IMG_PATH/clip.png">\\
'     EndIf
'     $Image = "mail20.png"
'    Else
'     If $m.Files.Count
<img src="$IMG_PATH/clip.png">\\
'     EndIf
'     If $m.Type = "Sent"
'      $Image = "mail_sent20.png"
'     Else
'      $Image = "mail_write20.png"
'     EndIf
'    EndIf
<br></td>
<td valign="top" nowrap><font size="-1">
'    $Subject = $m.Subject
'    $SubjectLength = $MailProfile.Subject.Length
'    If $SubjectLength
'     $Subject = $Command.String.StrHead $Subject $SubjectLength
'    EndIf
'    Call cmLink $Subject $Image "$Server?page=MailView&wid=$WID&bs=$ID&bbs=$localBS&vid=$VID&mid=$m.OID&dbid=$m.DBID&type=$m.Type&ctid=$CTID&tdbid=$TDBID&head=$Head&hid=$HID&haid=$HAID&bpt=$BPT&wmc=$Login.ID"
'    If $m.Type = "Draft"
<font color="#008800">(作成中)</font>
'    EndIf
</font>
</td>
<td valign="top"><font size="-1">$WorkSpace.Mails.$ID.Name</font></td>
<td valign="top">
'    If ( $MailProfile.Accounts.Count > 1 ) and ( ! $MailProfile.AccountView.Hidden )
'     $ACID = $m.ACID
'     Set $Account = $MailProfile.Accounts.$ACID
'     If $Account
<img src="$IMG_PATH/item16.png"><font size="-1">アカウント : $Account.Name
</font>
'     EndIf
'    EndIf
'    For Each $Item in $MailProfile.Items
'     If ! $Item.Hidden
'      $IID = $Item.ID
'      $FirstItem = 1
'      Set $Values = $m.Items.$IID
'      For Each $Value in $Values
'       If $FirstItem
'        $FirstItem = 0
<img src="$IMG_PATH/item16.png"><font size="-1">$Item.Name :
'       Else
,
'       EndIf
$Value
'      Next
'      If ! $FirstItem
</font>
'      EndIf
'     EndIf
'    Next
<br></td>
'   EndIf
</tr>
'   Call commentRow $m.Comments 1 6
'  Next
' EndIf
'  Call titleRow
</table>
' Call operation
' EndSub
''
' Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn
' If $VID
'  Call cmChildFooter $BackURL "$BackTitle"
' Else
'  Call cmFooter $BackURL "$BackTitle"
' EndIf
</body>
</html>
''
' Sub operation
<form method="get" action="$Server">
<input type="hidden" name="Page" value="MailCustomerHistory">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="CTID" value="$CTID">
<input type="hidden" name="TDBID" value="$TDBID">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="CAID" value="$CAID">
<input type="hidden" name="COID" value="$COID">
<input type="hidden" name="Text" value="$Text">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr class="active">
'  Call operationInner
'  Call showBackNavigation
'  Call Navigation $ViewIndex "&bs=$BS&aid=$AID&ctid=$CTID&tdbid=$TDBID&caid=$CAID&coid=$COID&bpt=$BPT" $Rows
</tr></table>
</form>
' 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 "&aid=$AID&ctid=$CTID&tdbid=$TDBID&text=$Text"
</td>
'  EndIf
' EndSub
''
' Sub operationInner
' If ( $WorkSpace.Mails.Count > 1 ) or ( ! $WorkSpace.Post.Disable )
<td width="1%" nowrap>種別\\
<select name="AID" class="AID" onChange="this.form.submit();">
<option value="">(全て)
'  For Each $m in $WorkSpace.Mails
'   If $m.ID = $AID
'    $Sel = "Selected"
'   Else
'    $Sel = ""
'   EndIf
<option value="$m.ID" $Sel>$m.Name
'  Next
'  If ! $WorkSpace.Post.Disable
'   If $AID = -1
'    $Sel = "Selected"
'   Else
'    $Sel = ""
'   EndIf
<option value="-1" $Sel>$WorkSpace.Post.Name
'  EndIf
</select></td>
' EndIf
' EndSub
''
'  Sub commentRow $argComments $argOffsetCols $argCommentCols
'   If ! $argComments.Count
'    Exit
'   EndIf
<tr class="$RowClass">
'   If $argOffsetCols > 1
<td valign="top" colspan="$argOffsetCols"><br></td>
'   Else
<td valign="top"><br></td>
'   EndIf
'   If $argCommentCols > 1
<td valign="top" colspan="$argCommentCols">\\
'   Else
<td valign="top">\\
'   EndIf
<div class="comment">\\
'    For Each $Comment in $argComments
'     var $localData = $Command.String.Trim $Comment.Data
'     var $localMultiLine = $Command.String.IsMultiLine $localData
'     If $localMultiLine
'      If $Comment.UID == $Login.ID
<div class="mycomment-block">
'      Else
<div class="comment-block">
'      EndIf
'      View $localData 1
</div>
'     Else
'      If $Comment.UID == $Login.ID
<span class="mycomment-inline">
'      Else
<span class="comment-inline">
'      EndIf
'      View $localData 1 0 1
</span>
'     EndIf
'    Next
</div></td></tr>
'  EndSub
''
'  Sub titleRow
'   If $WorkSpace.Mails.$AID or ( ! $Select )
<!--#include file="PartsMailIndex.html"-->
'    Set $MailProfile = $Command.Mail.GetMailTop $AID
'    Call viewMailTitle $AID $MailProfile -4 1
'   ElIf $AID = -1
<tr class="table-header"><td align="center" nowrap>日時</td><td nowrap>作成者</td><td nowrap>件名</td><td nowrap>配信状況</td></tr>
'   Else
<tr class="table-header"><td align="center" nowrap>日時</td><td nowrap>状況・確認者</td><td nowrap>担当者</td><td><br></td><td nowrap>件名</td><td nowrap>種別</td><td>備考</td></tr>
'   EndIf
'  EndSub
''
'  Sub timeCell $argNowTimeStamp $argTimeStamp
<td align="right" nowrap>\\
<span class="mailTime">\\
'   If $argTimeStamp.Year != $argNowTimeStamp.Year
$argTimeStamp.Year/\\
'   EndIf
$argTimeStamp.Month00/$argTimeStamp.Day00</span>
<span class="mailTime fontBold">\\
$argTimeStamp.Hour00:$argTimeStamp.Minute00</span>
</td>
'  EndSub