' $System.Access Post
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryToolBar.html"-->
<!--#include file="LibraryNavigation.html"-->
' $CaptionTitle = $WorkSpace.Post.Name
' Call cmHead $CaptionTitle
</head>
<body>
' If $WorkSpace.Post.Disable
'  Call cmHeader $CaptionTitle
<p>$WorkSpace.Post.Nameは現在、使用を停止しています。</p>
'  Call cmFooter
</body>
</html>
'  Exit
' EndIf
' Call cmHeader $CaptionTitle
' $System.CloseDatabase "mw"
' Init $Rows = 50
' $Command.Mail.CloseDatabase
''
' Sub commonColumn
'' お知らせ
<!--#include file="LibraryInfomation.html"-->
'  Set $Info = $Command.Post.GetPersonalInfo
'  Call InfomationBar "Post" $Post $Info
'' メニュー
'  Call menuColumn
' EndSub
''
' Sub menuColumn
' If $VID
'  Exit
' EndIf
' If ! $WorkSpace.Post.IsAccessModify
'  Exit
' EndIf
<table class="menuColumn"><tr><td nowrap>
'   Call cmLinkButton "配信メールを作成する" "btn_postmail_write20.png" "$Server?page=PostSetData&wid=$WID&init=1"
</td></tr></table>
' EndSub
''
' Sub viewTitle
<tr class="table-header"><td nowrap>日時</td><td nowrap>作成者</td><td nowrap>件名</td><td nowrap>配信状況</td></tr>
' EndSub
''
' Sub mainColumn
' Set $rs = $Post.Index.RowSet
' $rs.Rows = $Rows
' If $Head
'  $rs.Head = $Head
'  $rs.HID = $HID
' EndIf
' $RowNum = 0
' Call operation
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' Call viewTitle
' For Each $pc in $rs
'  Inc $RowNum
'  If $pc.ID = $PCID
'   $RowClass = "currentRow"
'  Else
'   $Remainder = $Command.Math.Modulus $RowNum 2
'   If $Remainder = 0
'    $RowClass = "evenRow"
'   Else
'    $RowClass = "oddRow"
'   EndIf
'  EndIf
<tr class="$RowClass overline"><td valign="top" nowrap>
'  $t = $pc.TimeStamp
'  If $t.Year != $Date.Year
$t.Year/$t.Month/$t.Day
'  Else
$t.Month/$t.Day
'  EndIf
$t.Hour:$t.Minute00
</td>
<td valign="top" nowrap><font size="-1">
'  $UID = $pc.UID
'  If $Users.$UID
$Users.$UID.Name
'  Else
$pc.UserName
'  EndIf
</font></td>
<td valign="top"><font size="-1">
'  If $pc.Sent
'   $Image = "postmail20.png"
'  Else
'   $Image = "postmail_write20.png"
'  EndIf
'  Call cmLink $pc.Subject $Image "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$pc.ID&head=$Head&hid=$HID&wpi=$Login.ID"
</font></td>
<td valign="top" nowrap><font size="-1">
'  If $pc.Sent
'   $Count = $pc.Count
'   Init $Count = 0
'   $Total = $pc.Targets.Count
'   Call cmLink "配信済み( $Count件/$Total件 )" "" "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$pc.ID&tab=to&head=$Head&hid=$HID&wpi=$Login.ID"
'  Else
'   $Count = $pc.Targets.Count
'   Init $Count = 0
'   Call cmLink "作成中( $Count件 )" "" "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$pc.ID&tab=to&head=$Head&hid=$HID&wpi=$Login.ID"
'  EndIf
</font></td>
</tr>
'  If $pc.Comments.Count
<tr class="$RowClass"><td colspan="2"><br></td><td colspan="2">\\
<div class="comment">
'   For Each $Comment in $pc.Comments
'    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>
'  EndIf
' Next
' If ! $RowNum
</table>
<div class="mailindex-separator">
'  If ! $Head
データはありません。
'  EndIf
</div>
<table class="dataList" width="100%" border="0" cellspacing="0" cellpadding="7">
' EndIf
' Call viewTitle
</table>
' Call operation
' EndSub
''
' Call layout_list "" "" 0 mainColumn "" "" 0 "" commonColumn
''
' If $VID
'  Call cmChildFooter
' Else
'  Call cmFooter
' EndIf
</body>
</html>
''
' Sub operation
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr class="active">
' If $Storages.Count and ( ! $VID )
<!--#include file="LibraryBackNavigation.html"-->
<td nowrap>
'  Call backNavigation
</td>
' EndIf
' Call Navigation $rs "" $Rows
</tr></table>
' EndSub