Permalink
Browse files

Fix class of links to deleted articles

  • Loading branch information...
1 parent 6fb6612 commit efc19210e904633d4ae5b0a12c71dd29e8c2c223 @vsedach committed Sep 17, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/article.lisp
View
@@ -21,7 +21,8 @@
(car (revisions article)))
(defun %print-article-link (title class)
- (let ((class (if (find-article title) class "new")))
+ (let* ((article (find-article title))
+ (class (if (and article (not (deleted? article))) class "new")))
#H[<a href="${ (article-link title) }" class="${ class }">${ (escape-for-html title) }</a>]))
(defun pprint-article-link (title)

0 comments on commit efc1921

Please sign in to comment.