Index: openacs-4/packages/content-includelet/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/www/admin/index.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/content-includelet/www/admin/index.tcl 11 Jul 2008 16:38:55 -0000 1.1 +++ openacs-4/packages/content-includelet/www/admin/index.tcl 30 Aug 2008 00:31:48 -0000 1.2 @@ -17,14 +17,38 @@ set page_title "Manage Content" set name "Content Name" -db_multirow -extend {author_url} revisions revisions { - select r.*, p.first_names || ' ' || p.last_name as author, - p.person_id as user_id - from cr_revisions r, persons p, acs_objects o - where r.item_id = :item_id - and o.object_id = r.revision_id - and p.person_id = o.creation_user - order by r.revision_id desc -} { +db_multirow -extend {author_url display_template} revisions revisions {} { set author_url [export_vars -base /shared/community-member {user_id}] + set publish_date [lc_time_fmt $publish_date "%x %X"] + set display_template " + #content-includelet.View# + #content-includelet.Edit# + + #content-includelet.Delete# + #content-includelet.Publish# + + + #content-includelet.Unpublish# + " } + +template::list::create \ + -name revisions \ + -multirow revisions \ + -key revision_id \ + -elements { + author { + label {[_ content-includelet.Author]} + display_template { + @revisions.author@ + } + } + publish_date { + label {[_ content-includelet.Published]} + } + actions { + label {[_ layout-subsite-integration.Action]} + display_template $display_template + } + } +