" \
+ "
" \
+ "
Created by ${:creator}, " \
+ "last modified by [::xo::get_user_name ${:creation_user}] " \
+ "${:pretty_date}
" \
+ ${:description} $more $my_footer \n\
+ "
"
+ #:log "--W entry done [self] [:info class] subst=[:do_substitutions] ${:name}"
+ return $content
+ }
+
+ #
+ # The following definition is the renderer for the full weblog.
+ # This is executed in the context of the whole weblog object
+ #
+ Class create WeblogRenderer -instproc render {} {
+ set filter ""
+ set prev ""
+ set next ""
+
+ if {[info exists :filter_msg]} {
+ set filter "" \
- "
" \
- "
Created by $creator, " \
- "last modified by [::xo::get_user_name $creation_user] " \
- "$pretty_date
" \
- $description $more $my_footer \n\
- "
"
- #my log "--W entry done [self] [my info class] subst=[my do_substitutions] [my name]"
- return $content
- }
-
- #
- # The following definition is the renderer for the full weblog.
- # This is executed in the context of the whole weblog object
- #
- Class create WeblogRenderer -instproc render {} {
- my instvar filter_msg link name prev_page_link next_page_link
-
- set filter ""
- set prev ""
- set next ""
-
- if {[info exists filter_msg]} {
- set filter "