$title
" \ "Created by $creator, " \ "last modified by [::xo::get_user_name $creation_user] " \ "$pretty_date
" \ $description $more $my_footer \n\ "# -*- tcl-*- # $Id: weblog-portlet.page,v 1.5 2007/03/17 23:13:21 gustafn Exp $ ::xowiki::Object new -title "Weblog" -text { # # A sample Weblog object. # my initialize -parameter { {-page_size:integer 10} {-page_number:integer 1} {-summary:boolean 0} {-date ""} {-tag ""} {-ptag ""} } # # The following definition is the default rendering per # weblog entry. This is executed in the context of every displayed page. # Class create EntryRenderer -instproc render {} { my instvar package_id name title creator creation_user pretty_date description [my set __parent] instvar weblog_obj set link [::$package_id pretty_link $name] set more [expr {[$weblog_obj summary] ? " \[#xowiki.weblog-more#\]" : ""}] append more "
" set my_footer [my htmlFooter] append content "Created by $creator, " \ "last modified by [::xo::get_user_name $creation_user] " \ "$pretty_date
" \ $description $more $my_footer \n\ "