' $System.Access Post
' If $WCH
'  Set $BP = $Command.Personal.SetBackPage $WCH "CustomerHistory"
'  $BP.Args.cid = $BCID
'  $BP.Args.dbid = $BDBID
'  $BP.Args.aid = $AID
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.haid = $HAID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WMC
'  Set $BP = $Command.Personal.SetBackPage $WMC "MailCustomerHistory"
'  $BP.Args.BS = $BID
'  $BP.Args.ctid = $CTID
'  $BP.Args.tdbid = $TDBID
'  $BP.Args.aid = $AID
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BP.Args.haid = $HAID
'  $BP.Args.bpt = $BPT
'  $BPT = $BP.TimeStamp
' Elif $WPI
'  Set $BP = $Command.Personal.SetBackPage $WPI "PostIndex"
'  $BP.Args.head = $Head
'  $BP.Args.hid = $HID
'  $BPT = $BP.TimeStamp
' EndIf
' If $BPT
'  Set $BP = $Command.Personal.GetBackPage $BPT
' EndIf
'' <!---------------------バックページ設定開始----------------------------->
' $BPage = $BP.Page
' $BParam = $BP.Param
' $System.SetParameter URLPostIndex "$Server?page=PostIndex&wid=$WID&vid=$VID&pcid=$PCID"
' If $BPage = "CustomerHistory"
'  $CaptionBackPage = "顧客の履歴一覧へ"
'  $System.SetParameter BackURL "$Server?page=$BPage&wid=$WID&vid=$VID$$BParam&caid=-1&coid=$PCID"
'  $BCID = $BP.Args.cid
' Elif $BPage = "MailCustomerHistory"
'  $CaptionBackPage = "メールの履歴一覧へ"
'  $System.SetParameter BackURL "$Server?page=$BPage&wid=$WID&vid=$VID$$BParam&bbs=$bbs&caid=-1&coid=$PCID"
' Else
'  $CaptionBackPage = "配信一覧へ"
'  $System.SetParameter BackURL "$URLPostIndex$$BParam"
'  $URLPostIndex = $BackURL
' EndIf
'' <!---------------------バックページ設定終了----------------------------->
' If $System.IsPost
'  If $Submit
'   $System.Redirect $Server?page=$Page&wid=$WID&pcid=$PCID&bpt=$BPT&tab=$Tab
'   $Command.Post.AddComment
'  Elif $Mode = "Release"
'   $System.Redirect $Server?page=$Page&wid=$WID&pcid=$PCID&bpt=$BPT&tab=$Tab
'   $Command.Post.Release
'  Else
'   $Command.Post.AccessDelete $WID $PCID
'   $System.Redirect $BackURL
'   $Command.Post.Delete
'  EndIf
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryTabSheet.html"-->
' $CaptionTitle = "配信情報の詳細"
' $SystemName = $WorkSpace.Post.Name
' $Command.System.OnBrowse $SystemName $PCID $WID
' Call cmHead $CaptionTitle
<script language="JavaScript" type="text/javascript"><!--
function onRelease()
{
	if( confirm( '編集状態を強制解除します。よろしいですか？' ) )
	{
		var form = document.forms['PostView'];
		form.Mode.value='Release';
		form.submit();
	}
}
function onDelete()
{
	if( confirm( 'この配信情報を削除します。よろしいですか？' ) )
	{
		var form = document.forms['PostView'];
		form.Mode.value='Delete';
		form.submit();
	}
}
function AlertSend()
{
	alert( '配信先の設定をしてください。' );
}
function onSend()
{
	if( confirm( 'このメールは途中まで配信されています。\nつづきを送信しますか？' ) )
	{
		location.href="$Server?page=PostSend&wid=$WID&pcid=$PCID&start=1";
	}
}
jQuery(function($) {
    var form = document.forms['PostView'];
    if (form && form.elements.Refresh.value == '1') {
        postComment(form, '$Server?page=AjaxComments&app=Post', null);
    }
});
//-->
</script>
</head>
<body>
' Call cmHeader $CaptionTitle $URLPostIndex $WorkSpace.Post.Name
''
' Set $pc = $Post.Cards.$PCID
' If ! $pc
'  Sub deletedColumn
<p>指定された配信情報は既に削除されています。</p>
'  EndSub
'  Call layout_msg "" "" 0 deletedColumn
'  If $VID
'   Call cmChildFooter $BackURL $CaptionBackPage
'  Else
'   Call cmFooter $BackURL $CaptionBackPage
'  EndIf
</body>
</html>
'  Exit
' EndIf
''
<form name="PostView" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="PostView">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="VID" value="$VID">
<input type="hidden" name="PCID" value="$PCID">
<input type="hidden" name="BPT" value="$BPT">
<input type="hidden" name="Tab" value="$Tab">
<input type="hidden" name="Mode" value="">
<input type="hidden" name="Refresh" value="">
' $Disable = $WorkSpace.Post.Disable
' $System.CloseDatabase "mw"
''
'  $Available = $Command.Mail.IsAvailableSystem $pc.BS
'  If $Available
'   $AccessCreate = $WorkSpace.Post.IsAccessModify
'   $AccessModify = $Command.Post.IsAccessModify $WID $PCID
'   $AccessSend = $WorkSpace.Post.IsAccessSend
'  EndIf
'  $AccessDelete = $Command.Post.IsAccessDelete $WID $PCID
'  $AccessManage = $WorkSpace.IsAccessManage
'  If $pc.ModifyUID
'   $ModifyUID = $pc.ModifyUID
'   Set $mu = $Users.$ModifyUID
'  EndIf
''
' $TC = $pc.Targets.Count
' Init $TC = 0
' $EC = $pc.Errors.Count
' Init $EC = 0
''
' Sub commonColumn
' If $VID
'  Exit
' EndIf
' If $Disable
'  Exit
' EndIf
'   If $pc.Sent
'    If $pc.SendTime
<div class="desc"><font color="#008800">このメールは途中まで配信されています。</font></div>\\
'    EndIf
'   Elif $mu
'    $t = $pc.ModifyTime
<div class="desc"><font color="#008800">$mu.Nameさんが編集中です ($t.Month/$t.Day $t.Hour:$t.Minute00)</font></div>\\
'   Else
<div class="desc"><font color="#008800">このメールは作成中です。配信されていません。</font></div>\\
'   EndIf
'  Call menuColumn
' EndSub
''
' Sub menuColumn
'  If $VID
'   Exit
'  EndIf
'  If $Disable
'   Exit
'  EndIf
<table class="menuColumn"><tr><td nowrap>
'   If $pc.Sent
'    If $pc.SendTime
'     If $AccessSend
'      Call cmLinkButton "送信する" "btn_post20.png" "" 0 0 0 "" "onSend();"
</td><td nowrap>
'     EndIf
'    Else
'     If $AccessCreate
'      Call cmLinkButton "再利用配信" "btn_recycle20.png" "$Server?page=PostSetData&wid=$WID&pcid=$PCID&bpt=$BPT&init=1"
</td><td nowrap>
'     EndIf
'    EndIf
'    If $AccessDelete
'     Call cmLinkButton "削除する" "btn_delete20.png" "" 0 0 0 "" "onDelete();"
</td><td nowrap>
'    EndIf
'   Elif $mu
'    If $AccessManage
'     Call cmLinkButton "解除する" "btn_stop20.png" "" 0 0 0 "" "onRelease();"
'    EndIf
'   Else
'    If $AccessSend
'     If $pc.Targets.Count
'      Call cmLinkButton "送信する" "btn_post20.png" "$Server?page=PostSendConfirm&wid=$WID&pcid=$PCID&bpt=$BPT"
'     Else
'      Call cmLinkButton "送信する" "btn_post20.png" "" 0 0 0 "" "AlertSend();"
'     EndIf
</td><td nowrap>
'    EndIf
'    If $AccessDelete
'     Call cmLinkButton "削除する" "btn_delete20.png" "" 0 0 0 "" "onDelete();"
</td><td nowrap>
'    EndIf
'   EndIf
' If ( ! $pc.Sent ) and ( ! $Disable ) and ( ! $VID )
'  If $AccessModify
'   If ( ! $mu ) or ( $pc.ModifyUID = $Login.ID )
'    Call cmLinkButton "内容を変更する" "btn_postmail_write20.png" "$Server?page=PostSetData&wid=$WID&pcid=$PCID&bpt=$BPT&rw=post"
</td><td nowrap>
'    Call cmLinkButton "配信先を変更する" "btn_person20.png" "$Server?page=PostSetTarget&wid=$WID&pcid=$PCID&bpt=$BPT&rw=post"
</td><td nowrap>
'   EndIf
'  EndIf
'  If ( ! $mu ) and $AccessSend
'   Call cmLinkButton "テストメールを送る" "btn_post20.png" "$Server?page=PostSendTest&wid=$WID&pcid=$PCID&bpt=$BPT"
</td><td nowrap>
'  EndIf
' EndIf
</td></tr></table>
' EndSub
''
' Sub tabColumn
' Call tsBegin
' Call postMailTab
' Call postTargetTab
' Call postErrorTab
' Call tsEnd $Page
''
' Sub postMailTab
'  If $Tab
'   var $localActive = 0
'  Else
'   var $localActive = 1
'  EndIf
'  Call tsTab "メール内容" "" "$Server?page=$Page&wid=$WID&vid=$VID&pcid=$PCID&bpt=$BPT" $localActive
' EndSub
''
' Sub postTargetTab
'  $System.Setparameter localSubText "$TC"
'  If $Tab = "to"
'   var $localActive = 1
'  Else
'   var $localActive = 0
'  EndIf
'  Call tsTab "配信先" "" "$Server?page=$Page&wid=$WID&vid=$VID&pcid=$PCID&bpt=$BPT&tab=to" $localActive "" "" $localSubText
' EndSub
''
' Sub postErrorTab
'  If ! $pc.Sent
'   Exit
'  EndIf
'  $System.Setparameter localSubText "$EC"
'  If $Tab = "error"
'   var $localActive = 1
'  Else
'   var $localActive = 0
'  EndIf
'  Call tsTab "エラー" "" "$Server?page=$Page&wid=$WID&vid=$VID&pcid=$PCID&bpt=$BPT&tab=error" $localActive "" "" $localSubText
' EndSub
' EndSub
''
' Sub mainColumn
'' <!---------------------件名----------------------------->
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr class="active"><td nowrap>
' If $BCID
'  $TID = $pc.Customers.$BCID.Targets.Head
' Elif $CTID
'  $PCTID = $pc.CTID
'  $TID = $pc.TempIndex.$PCTID.ID
' EndIf
' If $TID
'  $Subject = $Command.Post.GetTranslation $WID $pc.Subject $PCID $TID 1
' Else
'  $Subject = $pc.Subject
' EndIf
' Call cmImage "postmail20.png"
<b>$Subject</b>
</td></tr>
</table>
'' <!---------------------エラー----------------------------->
' If $Tab = "error"
<!--#include file="LibraryPostErrors.html"-->
'  $Rows = $Customer.Rows
'  Init $Rows = 20
'  Call postErrors $pc $Rows "&tab=error" $Start
'' <!---------------------全配信先----------------------------->
' Elif $Tab = "to"
<!--#include file="LibraryPostViewCond.html"-->
<!--#include file="LibraryPostTarget.html"-->
<table width="100%" border="1" cellspacing="0" cellpadding="4" bgcolor="#ffffff">
<tr><td class="title" width="10%" valign="top" nowrap>絞込条件</td><td width="40%" valign="top">
'  Call postViewCond $pc
<br></td><td class="title" width="10%" valign="top" nowrap>除外</td><td width="40%" valign="top">
'  If $pc.RemoveCIDs.Count
'   Call cmLink "$pc.RemoveCIDs.Count 件" "" "$Server?page=PostExcepted&wid=$WID&vid=$VID&pcid=$PCID&bpt=$BPT"
'  EndIf
<br></td></tr>
</table>
'  Call PostTargetIndex $PCID "&pcid=$PCID&bpt=$BPT&tab=$Tab" $Head 0 $pc.Search
'' <!---------------------メール内容----------------------------->
' Else
<table width="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="active"><td nowrap>\\
 <table border="0" cellspacing="0" cellpadding="2"><tr><td width="100" valign="top" nowrap>From</td><td nowrap>$pc.From</td></tr></table>
</td></tr>
<tr><td colspan="2" valign="top" nowrap>
<div class="mailBody">
'  If $pc.HtmlData
'   $Data = $pc.HtmlData
'   If $TID
'    $Data = $Command.Post.GetTranslation $WID $Data $PCID $TID 0 1
'   EndIf
<div class="re-content">
'   $Command.RichText.View $Data
</div>
'  Else
'   $Data = $pc.Data
'   If $TID
'    $Data = $Command.Post.GetTranslation $WID $Data $PCID $TID
'   EndIf
'   View $Data
'  EndIf
'  If $TID
'   $Signature = $Command.Post.GetTranslation $WID $pc.Signature $PCID $TID
'  Else
'   $Signature = $pc.Signature
'  EndIf
<br>
'  View $Signature
'  If $pc.Files.Count
<hr>
'   $System.SetParameter Inline "Inline$WID"
'   For Each $File in $pc.Files
'    $System.FileLink $File "Post" $Login.$Inline 0 "&wid=$WID&vid=$VID"
<br>
'   Next
'  EndIf
</div></td></tr></table>
<table class="active" width="100%" border="0" cellspacing="0" cellpadding="2"><tr><td><br></td></tr></table>
<table width="480" border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr><td class="title" width="120" nowrap>作成情報</td><td nowrap>
'  $UID = $pc.UID
'  If $Users.$UID
$Users.$UID.Name
'  Else
$pc.UserName
'  EndIf
'  $t = $pc.CTime
'  If $t
($t.Year/$t.Month/$t.Day $t.Hour:$t.Minute00)
'  EndIf
</td></tr>
<tr><td class="title" width="120" nowrap>最終更新</td><td nowrap>
'  $UID = $pc.MID
'  If $Users.$UID
$Users.$UID.Name
'  Else
$pc.Modifier
'  EndIf
'  $t = $pc.MTime
'  If $t
($t.Year/$t.Month/$t.Day $t.Hour:$t.Minute00)
'  EndIf
<br></td></tr>
'  If $pc.Sent
<tr><td class="title" width="120" nowrap>送信情報</td><td nowrap>
'   $UID = $pc.SendUID
'   If $Users.$UID
$Users.$UID.Name
'   Else
$pc.Sender
'   EndIf
'   $t = $pc.TimeStamp
'   If $t
($t.Year/$t.Month/$t.Day $t.Hour:$t.Minute00)
'   EndIf
<br></td></tr>
'  EndIf
</table>
'  If ! $VID
<!--#include file="LibraryComment.html"-->
<table width="480" border="0" cellspacing="0" cellpadding="0" bgcolor="transparent">
<tr><td>
'   Call cmImage "pin.png"
コメント\\
</td></tr>
<tr><td>
<table border="0" cellspacing="0" cellpadding="2">
<tr><td nowrap>
'   Call commentAdd "Post" "Comment" "Submit"
</td></tr>
</table>
'   Call commentView "Post"
</td></tr></table>
'  EndIf
' EndIf
' EndSub
''
' Call layout_view "" "" 0 mainColumn commonColumn "" "" tabColumn
</form>
' If $VID
'  Call cmChildFooter $BackURL $CaptionBackPage
' Else
'  Call cmFooter $BackURL $CaptionBackPage
' EndIf
</body>
</html>