rss.tcl

Does not contain a contract.

Location:

/packages/bug-tracker/www/rss.tcl

Related Files

• packages/bug-tracker/www/rss.tcl
• packages/bug-tracker/www/rss.adp

[ hide source ] | [ make this the default ]

File Contents

# grab search results and process as an rss feed
set limit 15
set package_id [ad_conn package_id]
set items [db_list select_bugs "select s.rss_xml_frag from
acs_objects o,
syndication s
where
o.object_id=s.object_id
and o.object_type = 'bt_bug'
and o.package_id = :package_id
order by last_modified desc
limit $limit"]

set feed_title "OpenACS Bug Tracker"
set feed_description "OpenACS Bug Tracker"
set last_build_date [clock format [clock seconds] -format "%a, %d %b %Y %H:%M:%S %Z"]
set pub_date $last_build_date
#set author [parameter ..]
ad_return_template