' $System.Access Mail
' If $System.IsPost
'  $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID
'  $Command.Mail.DeletePartial
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "復元できない分割メールの詳細"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=$FID"
' Call cmHeader $CaptionTitle $BackURL $WorkSpace.Mails.$BS.Name
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' Set $MIndex = $Command.Mail.GetMailIndex $BS
''
' Sub mainColumn
<div class="desc">以下の分割メールを受信しましたが、復元できませんでした。</div>
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailPartial">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<input type="hidden" name="FID" value="$FID">
' Call operation "Head"
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' Call titleRow
' $Index = 1
' For Each $m in $MIndex.PartialMails
'  $Rows = $m.Parts.Count
<tr>
<td rowspan="$Rows">
'  Call formCheckBox "MID" "$Index$." 0 $m.ID "Del$m.ID"
</td>
'  $First = 1
'  For Each $p in $m.Parts
'   If $First
'    $First = 0
'   Else
<tr>
'   EndIf
<td>$p.Subject<br></td>
<td>$p.From<br></td>
'   $t = $p.TimeStamp
<td>$t.Year/$t.Month/$t.Day $t.Hour:$t.Minute00</td>
</tr>
'  Next
'  Inc $Index
' Next
' Call titleRow
</table>
' Call operation "Tail"
' EndSub
' Call layout_list "" "" 0 mainColumn "" "" 0
</form>
' Call cmFooter $BackURL "メールの一覧へ"
</body>
</html>
''
' Sub operation $argPos
   <table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr class="active">
     <td nowrap>
      <table border="0" cellspacing="0" cellpadding="2">
       <tr>
'  Call operationCheckedInner $argPos
       </tr>
      </table>
     </td>
    </tr>
   </table>
' EndSub
''
' Sub captionChecked $argPos
'  If ! $captionSet
<td 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
'  $captionSet = 0
'  Call captionChecked $argPos
<td nowrap>
'  Call formSubmit "Delete" "削除する"
</td>
' EndSub
''
'  Sub titleRow
<tr class="table-header"><td>番号</td><td>件名</td><td>差出人</td><td>日付</td></tr>
'  EndSub