Class ::xowiki::includelet::last-visited

::xowiki::includelet::last-visited[i] 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.tcl

Class Relations

  • class: ::xowiki::IncludeletClass[i]
  • superclass: ::xowiki::Includelet[i]
::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)