::xotcl::Class ::xowiki::includelet::page_fragment_cache

Class Hierarchy of ::xowiki::includelet::page_fragment_cache

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __api_make_doc, __api_make_forward_doc, __next^C, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check^C, class^C, cleanup^C, configure^C, contains, copy, db_1row^C, debug, defaultmethod, destroy^C, destroy_on_cleanup, dot_append_method, dotclass, dotcode, dotquote, dotquotel, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch^C, forward^C, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass^C, ismetaclass^C, ismixin^C, isobject^C, istype^C, lappend^C, log, method, mixin^C, mixinguard^C, move, msg, noinit^C, parametercmd^C, proc^C, procsearch^C, qn, requireNamespace^C, self, serialize, set^C, subst^C, trace^C, unset^C, uplevel^C, upvar^C, volatile^C, vwait^C

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  __exitHandler, getExitHandler, setExitHandler, unsetExitHandler

• ::xowiki::includelet::page_fragment_cache

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  cache_includelet_data, render

  Methods to be applied on the class:

  Methods provided by the meta-class

Class Relations

• superclass: ::xotcl::Object

::xotcl::Class create ::xowiki::includelet::page_fragment_cache \
     -superclass ::xotcl::Object

Methods

• instproc cache_includelet_data

  ::xowiki::includelet::page_fragment_cache instproc cache_includelet_data key {
      #my msg "data=[next]"
      set data [next]
      if {$data ne ""} {ns_cache set xowiki_cache $key $data}
    }

• instproc render

  ::xowiki::includelet::page_fragment_cache instproc render {} {
      set c [my info class]
      #
      # Construct a key based on the class parameters and the 
      # actual parameters
      #
      set key "PF-[my package_id]-"
      append key [expr {[$c aggregating] ? "agg" : "ind"}]
      append key "-$c [my set __caller_parameters]"
      if {[$c localized]}    {append key -[my locale]}
      if {[$c personalized]} {append key -[::xo::cc user_id]}
      set HTML [ns_cache eval xowiki_cache $key next]
      if {[catch {set data [ns_cache get xowiki_cache $key-data]}]} {
        my cache_includelet_data $key-data
      } else {
        #my msg "eval $data"
        eval $data
      }
      return $HTML
    }