From 34615b4a067ec6e20b968ad6c38ac894c36ecdeb Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 15 Jan 2010 16:34:16 +0100
Subject: =?UTF-8?q?Fix=20the=20=E2=80=9Cself=E2=80=9D=20link=20in=20indivi?=
 =?UTF-8?q?dual=20entries'=20comment=20feeds.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Ignore-this: a17685d7605dc70f23e6dd0be6ac7898

darcs-hash:7835fe9cd647281e78ba97e15bed9d177025e884
---
 journal.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3