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
--- openacs-4/packages/forums/lib/message/messages-list.tcl	12 Sep 2015 11:06:23 -0000	1.1.14.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,18 +0,0 @@
-set package_id [site_node::get_element -url $url -element package_id]
-
-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 
-        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"
-}
-
-# Local variables:
-#    mode: tcl
-#    tcl-indent-level: 4
-#    indent-tabs-mode: nil
-# End: