$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.12 2007/11/19 12:41:02 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 ""} {-entries_of ""} } # # 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 log "--W entry [self] [my name] package_id $package_id" [my set __parent] instvar weblog_obj # We get the instance_attributes, if these are available. For the # time being, we have these only in full mode (no summary) set link [::xowiki::Includelet detail_link -package_id $package_id -name $name \ -instance_attributes [my get_instance_attributes]] set show_more [expr {[$weblog_obj summary] && [my exists text] && [my text] ne ""}] set more [expr {$show_more ? " \[#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\ "