messages-list.tcl
Display recent messages Note: this page does not seem to be mentioned by upstream code as of 2019-12-20
- Location:
- /packages/forums/lib/message/messages-list.tcl
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_include_contract { Display recent messages Note: this page does not seem to be mentioned by upstream code as of 2019-12-20 } 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 > current_timestamp - cast('5 days' as 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: