' $System.Access Mail
' If $WMS
'  Set $BP = $Command.Personal.SetBackPage $WMS "MailSearch"
'  $BP.Args.st = $ST
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BPT = $BP.TimeStamp
' EndIf
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
' If $System.IsPost
'  If $BP.Page = "MailSearch"
'   $System.Redirect $Server?page=MailSearch&wid=$WID&bs=$BS&vid=$VID&mid=$MID$$BP.Param
'  Else
'   $System.Redirect $Server?page=MailIndex&wid=$WID&bs=$BS&fid=-3
'  EndIf
'  If $Mode = "Delete"
'   $Command.Mail.AccessDelete $BS
'   $Command.Mail.DeleteSelectedMail
'  Else
'   $Command.Mail.AccessModify $BS
'   $Command.Mail.RestoreMail
'  EndIf
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryMailView.html"-->
' $CaptionTitle = "削除メールの詳細"
' $Command.System.OnBrowse "メール" $MID $WID
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onRestore( form )
{
	form.Mode.value='Restore';
	form.submit();
}
function onDelete( form )
{
	if( confirm( 'このメールを完全に削除します。\n完全に削除したメールは復旧できませんが、よろしいですか？' ) )
	{
		form.Mode.value='Delete';
		form.submit();
	}
}
//-->
</script>
</head>
<body>
' Call cmHeader $CaptionTitle "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=-3" $WorkSpace.Mails.$BS.Name
''
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $BS
' If $Type = "Received"
'  Set $m = $Command.Mail.GetReceivedMailData $BS $MID $DBID
' Else
'  Set $m = $Command.Mail.GetSentMailData $BS $MID $DBID
' EndIf
' Set $Mails = $Command.Mail.GetIndexMails $BS -3
' Set $rs = $Mails.RowSet
' $rs.Rows = 1
' $rs.Head = $m.DeleteTime
' $rs.HID = $MID
' $PID = $rs.PID
' $NID = $rs.NID
''
<form method="post" name="$Page" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="MailGarbageView">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="BS" value="$BS">
<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="BPT" value="$BPT">
<input type="hidden" name="Mode" value="">
''
' Sub commonColumn
<table class="menuColumn">
<tr><td width="1%" nowrap>
' If $WorkSpace.Mails.$BS.IsAccessModify
'  Call cmLinkButton "復旧する" "btn_restore20.png" "" 0 0 0 "" "onRestore(document.forms.$Page);"
' EndIf
' If $WorkSpace.Mails.$BS.IsAccessDelete
'  Call cmLinkButton "完全に削除する" "btn_delete20.png" "" 0 0 0 "" "onDelete(document.forms.$Page);"
' EndIf
</td>\\
'  Call mailviewNavigation
</tr></table>
' EndSub
''
' Sub mailInfomation
<table class="dataView" width="100%">
' Call mvProperty $MailProfile $m $BS $MID $DBID $Type
</table> <br>
<div class="shadowBottom"></div>
' EndSub
''
' Sub mailMain
'  Call mailContent $m 1
' EndSub
''
' Sub mainColumn
'  Call mailInfomation
'  Call mailMain
' EndSub
''
' Call layout_view "" "" 0 mainColumn commonColumn commonColumn
</form>
' If $BP.Page = "MailSearch"
'  Call cmFooter "$Server?page=MailSearch&wid=$WID&bs=$BS&vid=$VID&mid=$MID$$BP.Param" "メールの検索へ"
' Else
'  Call cmFooter "$Server?page=MailIndex&wid=$WID&bs=$BS&fid=-3" "メールの一覧へ"
' EndIf
</body>
</html>
''
'' <!-- 前後移動ナビ -->
' Sub mailviewNavigation
'  If $BP.Page = "MailSearch"
'   Exit
'  EndIf
'  If $PID
'   Set $pm = $Command.Mail.GetMail $BS $PID
'  EndIf
'  If $pm
'   var $localBackDisable = 0
'  Else
'   var $localBackDisable = 1
'  EndIf
'  $System.SetParameter NavigationBack "$Server?page=$Page&wid=$WID&bs=$BS&mid=$pm.ID&dbid=$pm.DBID&type=$pm.Type"
'  If $NID
'   Set $nm = $Command.Mail.GetMail $BS $NID
'  EndIf
'  If $nm
'   var $localNextDisable = 0
'  Else
'   var $localNextDisable = 1
'  EndIf
'  $System.SetParameter NavigationNext "$Server?page=$Page&wid=$WID&bs=$BS&mid=$nm.ID&dbid=$nm.DBID&type=$nm.Type"
<td style="height:30px;"><br></td>
<td align="right" class="naviColumn" nowrap>\\
<div class="navigation">\\
'  Call cmLinkButton "" "arrow_back_single.png" "$NavigationBack" $localBackDisable 0 0 "前へ"
'  Call cmLinkButton "" "arrow_next_single.png" "$NavigationNext" $localNextDisable 0 0 "次へ"
<script>
    $(window).load(function(){
        disposeNavigation();
        $(window).resize(function(){ disposeNavigation(); });
    });
    function disposeNavigation()
    {
''      //画面の横幅MAXを取得
        var val = $('#contentColumn').outerWidth();
        val -= $(window).width();
        $('.navigation').css('right',val);
    }
</script>
</div>
</td>
' EndSub