From 033516172c84bc772c7deeea8875445b4e7d48a2 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 30 Sep 2007 00:45:33 +0200 Subject: Fix comment viewing. darcs-hash:abb4db3e848ccfb0b9c90e8648460d25122e66aa --- journal-content.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'journal-content.lisp') diff --git a/journal-content.lisp b/journal-content.lisp index 9140a51..2991ec4 100644 --- a/journal-content.lisp +++ b/journal-content.lisp @@ -145,12 +145,11 @@ (defmethod comments-about ((journal-entry journal-entry) &key ordered-p) #.(locally-enable-sql-reader-syntax) (prog1 (if ordered-p - (mapcar #'car - (select 'journal-comment 'journal-entry - :where [= [slot-value 'journal-comment 'entry-id] - [slot-value 'journal-entry 'id]] - :order-by '([journal-comment.date]) - :flatp t)) + (select 'journal-comment + :where [= [slot-value 'journal-comment 'entry-id] + (id-of journal-entry)] + :order-by '([date]) + :flatp t) (%comments-about journal-entry)) #.(restore-sql-reader-syntax-state))) -- cgit v1.2.3