$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.9 2007/07/25 23:59:24 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 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) if {[my exists instance_attributes]} { set instance_attributes [my set instance_attributes] } else { set instance_attributes "" } set link [::xowiki::Portlet detail_link -package_id $package_id -name $name \ -instance_attributes $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\ "