Class ::xowiki::includelet::last-visited (public)

 ::xowiki::IncludeletClass ::xowiki::includelet::last-visited

Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tcl

Display last visited pages.

Testcases:

No testcase defined.

Source code:

namespace eval ::xowiki::includelet {}
::nsf::object::alloc ::xowiki::IncludeletClass ::xowiki::includelet::last-visited {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :aggregating false
   set :cacheable false
   set :localized true
   set :personalized true}
::xowiki::includelet::last-visited instproc render {} {
    :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]
  }
::xowiki::includelet::last-visited instparametercmd title
::xowiki::includelet::last-visited instparametercmd parameter_declaration
::nsf::relation::set ::xowiki::includelet::last-visited superclass ::xowiki::Includelet

::nx::slotObj -container slot ::xowiki::includelet::last-visited
::xowiki::includelet::last-visited::slot eval {set :__parameter {
        {title "#xowiki.last_visited_pages#"}
        {parameter_declaration {
          {-max_entries:integer 20}
        }}
      }}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::last-visited::slot::parameter_declaration {set :accessor public
   set :configurable true
   set :convert false
   set :default {
          {-max_entries:integer 20}
        }
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::last-visited
   set :incremental 0
   set :manager ::xowiki::includelet::last-visited::slot::parameter_declaration
   set :methodname parameter_declaration
   set :multiplicity 1..1
   set :name parameter_declaration
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::last-visited::slot::title {set :accessor public
   set :configurable true
   set :convert false
   set :default #xowiki.last_visited_pages#
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::last-visited
   set :incremental 0
   set :manager ::xowiki::includelet::last-visited::slot::title
   set :methodname title
   set :multiplicity 1..1
   set :name title
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

XQL Not present:

Generic, PostgreSQL, Oracle