Class ::xowiki::includelet::last-visited
::xowiki::includelet::last-visited
create ... \
[ -parameter_declaration (default "
{-max_entries:integer 20}
") ] \
[ -title (default "#xowiki.last_visited_pages#") ]
Display last visited pages.
Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tclClass Relations
- class: ::xowiki::IncludeletClass
![[i]](/resources/acs-subsite/ZoomIn16.gif)
- superclass: ::xowiki::Includelet
![[i]](/resources/acs-subsite/ZoomIn16.gif)
::xowiki::IncludeletClass create ::xowiki::includelet::last-visited \
-superclass ::xowiki::Includelet
Methods (to be applied on instances)
parameter_declaration (setter)
render (scripted)
:get_parameters
::xo::Page requireCSS "/resources/acs-templating/lists.css"
[:tableWidget] create t1 -volatile -columns {
AnchorField create title -label [::xowiki::Page::slot::title set pretty_name]
}
xo::dc foreach get_pages [::xo::dc select -vars "i.parent_id, r.title,i.name, x.time" -from "xowiki_last_visited x, xowiki_page p, cr_items i, cr_revisions r" -where "x.page_id = i.item_id and i.live_revision = p.page_id and r.revision_id = p.page_id and x.user_id = [::xo::cc set untrusted_user_id] and x.package_id = :package_id and i.publish_status <> 'production'" -orderby "x.time desc" -limit $max_entries] {
t1 add -title $title -title.href [::$package_id pretty_link -parent_id $parent_id $name]
}
return [t1 asHTML]title (setter)