::xotcl::Object ::xotcl::Object → getExitHandler → setExitHandler → unsetExitHandler __object_configureparameter __timediff abstract ad_doc ad_forward ad_proc asHTML check class db_0or1row db_1row debug destroy_on_cleanup ds extractConfigureArg filter filtersearch forward hasclass init invar isclass ismetaclass ismixin isobject istype log method mixin mset msg parametercmd proc procsearch qn self serialize set_instance_vars_defaults unknown vwait www-show-object ::xowiki::Weblog::EntryRenderer ::xowiki::Weblog::EntryRenderer render ::xowiki::Weblog::EntryRenderer->::xotcl::Object

Class ::xowiki::Weblog::EntryRenderer

::xowiki::Weblog::EntryRenderer[i] create ...

Class Relations

  • class: ::xotcl::Class[i]
  • superclass: ::xotcl::Object[i]
::xotcl::Class create ::xowiki::Weblog::EntryRenderer \
     -superclass ::xotcl::Object

Methods (to be applied on instances)

  • render (scripted)

    ${:__parent} instvar weblog_obj

set link [:pretty_link]
regsub -all & $link "&" link
set more [expr {[$weblog_obj summary] ?
                " <span class='more'> \[<a href='[ns_quotehtml $link]'>#xowiki.weblog-more#</a>\]</span>" : ""}]
#append more "<p></p>"

append content "<DIV class='post'>"  "<h2><a href='[ns_quotehtml $link]'>[ns_quotehtml ${:title}]</a></h2>"  "<p class='auth'>Created by ${:creator}, "  "last modified by [::xo::get_user_name ${:creation_user}] "  "<span class='date'>${:pretty_date}</span></p>"  ${:description} $more \n "</DIV>"