Index: openacs-4/packages/forums/lib/message/messages-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/messages-list.tcl,v diff -u -N -r1.2 -r1.2.2.1 --- openacs-4/packages/forums/lib/message/messages-list.tcl 7 Aug 2017 23:48:11 -0000 1.2 +++ openacs-4/packages/forums/lib/message/messages-list.tcl 20 Dec 2019 16:52:48 -0000 1.2.2.1 @@ -2,11 +2,11 @@ db_multirow -extend {link} messages messages { select m.subject, count(*) as n, max(m.message_id) as message_id,to_date(max(m.posting_date), 'YYYY-MM-DD HH24:MI:SS') as posted - from forums_forums f, forums_messages m - where f.package_id = :package_id - and m.forum_id = f.forum_id + from forums_forums f, forums_messages m + where f.package_id = :package_id + and m.forum_id = f.forum_id and posting_date > now() - '5 days'::interval group by subject order by max(m.posting_date) desc -} { +} { set posted [lc_time_fmt $posted "%x %X"] set link "message-view?message_id=$message_id" }