From 25782ecca1dd18caf9b2d9cb12e1ae434b2e82a8 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 10 May 2020 08:38:01 +0200 Subject: view/html: Do not allow commenting on archived issues. --- mumi/web/view/html.scm | 10 +++++++--- 1 file 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)))) -- cgit v1.2.3