2014-12-22 16:31:34 +01:00
|
|
|
$newline never
|
2016-09-02 15:55:50 +02:00
|
|
|
<div .column>
|
|
|
|
<div .subheader .medium>
|
2015-01-17 14:55:40 +01:00
|
|
|
<h1>Comments by medium
|
|
|
|
|
2014-12-22 16:31:34 +01:00
|
|
|
|
2016-09-02 15:55:50 +02:00
|
|
|
$if null comments
|
|
|
|
<div .subheader .medium>
|
2015-01-17 14:55:40 +01:00
|
|
|
<p>There are no comments yet
|
2016-09-02 15:55:50 +02:00
|
|
|
$else
|
|
|
|
$forall (Entity mediumId medium) <- media
|
|
|
|
<div .subheader .medium>
|
2015-01-17 14:58:39 +01:00
|
|
|
<h3>#{mediumTitle medium}
|
2016-09-02 15:55:50 +02:00
|
|
|
$forall (Entity commentId comment) <- comments
|
|
|
|
$if commentOrigin comment == mediumId
|
|
|
|
<div .medium .comment>
|
|
|
|
#{commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
|
|
|
|
<hr>
|
|
|
|
#{commentContent comment}
|
|
|
|
<a href=@{AdminCommentDeleteR commentId}>Delete this comment
|
|
|
|
$forall (Entity replyId reply) <- replies
|
|
|
|
$if commentParent reply == Just commentId
|
|
|
|
$if commentOrigin reply == mediumId
|
|
|
|
<div .medium .comment .reply>
|
|
|
|
#{commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
|
|
|
|
<hr>
|
|
|
|
#{commentContent reply}
|
|
|
|
<a href=@{AdminCommentDeleteR replyId}>Delete this comment
|