diff options
| -rwxr-xr-x | journal.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/journal.lisp b/journal.lisp index 37b49fe..a77c7fc 100755 --- a/journal.lisp +++ b/journal.lisp @@ -95,7 +95,9 @@ ("href" ,(link-to :index :absolute t))))) (with-tag ("link" `(("rel" "self") ("type" "application/atom+xml") - ("href" ,(link-to :view-comment-feed :absolute t))))) + ("href" ,(if *post-number* + (link-to :view-comment-feed :post-id *post-number* :absolute t) + (link-to :view-comment-feed :absolute t)))))) (let ((number 0)) (dolist (journal-comment (select 'journal-comment |