diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 08:38:01 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 08:45:56 +0200 |
| commit | 25782ecca1dd18caf9b2d9cb12e1ae434b2e82a8 (patch) | |
| tree | 4e671ee713ee3469d0f2009d1003d96657e2ed9f | |
| parent | d8201044eebdbad396c2505a167ba95f982dafa1 (diff) | |
view/html: Do not allow commenting on archived issues.
| -rw-r--r-- | mumi/web/view/html.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index b5300ae..8de7264 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -422,7 +422,8 @@ failed to process associated messages.") (@ (class "message")) (div (@ (class "card")) - ,@(if (mailer-enabled?) + ,@(if (and (mailer-enabled?) + (not (bug-archived bug))) `((form (@ (action ,(format #f "/issue/~a/comment" (number->string id))) @@ -459,8 +460,11 @@ failed to process associated messages.") (span (@ (class "address")) "Your comment"))) (div (@ (class "body card-body")) - (p "Comments via the web interface are not currently -supported. To comment on this conversation " + ,(if (bug-archived bug) + '(p "This issue is archived.") + '(p "Commenting via the web interface is +currently disabled.")) + (p "To comment on this conversation " (a (@ (href ,(string-append "mailto:" (number->string id) "@" (%config 'debbugs-domain) "?subject=" (bug-subject* bug)))) |