' $System.Access Post
' $Command.Post.AccessComment $WID $PCID $CMID $System.IsPost
' If $System.IsPost
'  $System.Redirect $Server?page=PostView&wid=$WID&pcid=$PCID&bpt=$BPT&tab=$Tab
'  $Command.Post.DeleteComment
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryDelete.html"-->
' $CaptionTitle = "コメントの削除"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=PostView&wid=$WID&pcid=$PCID&bpt=$BPT&tab=$Tab"
' $System.SetParameter URLPostIndex "$Server?page=PostIndex&wid=$WID"
' Call cmHeader $CaptionTitle $URLPostIndex $WorkSpace.Post.Name $BackURL "配信内容の詳細"
' $System.CloseDatabase "mw"
' Set $pc = $Post.Cards.$PCID
' Set $Comment = $pc.Comments.$CMID
<form name="PostView" method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="PostCommentDelete">
<input type="hidden" name="WID" value="$WID">
<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="CMID" value="$CMID">
' Call delConfirm "コメント" $Comment.Data
</form>
' Call cmFooter $BackURL "配信内容の詳細へ"
</body>
</html>