Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v diff -u -N -r1.68 -r1.69 --- openacs-4/packages/xowiki/tcl/weblog-procs.tcl 15 Jun 2015 19:21:07 -0000 1.68 +++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl 23 Jun 2015 08:04:10 -0000 1.69 @@ -194,7 +194,7 @@ $extra_where_clause"] if {$page_number ne ""} { - lappend sql -page_number $page_number -page_size $page_size + lappend sqlParams -page_number $page_number -page_size $page_size } # # Since there is no filtering on the left join tables, there is no @@ -204,7 +204,7 @@ [$base_type instance_select_query \ -from_clause $extra_from_clause \ {*}$sqlParams -count true]] - #my msg count=$nr_items + #my log count=$nr_items # # Obtain the set of answers @@ -281,7 +281,7 @@ if {$filter_msg ne ""} { append filter_msg ", $range of $nr_items $entry_label (all, [ns_quotehtml $flink])" } else { - append filter_msg "Showing $range of $nr_items $entry_label ([ns_quotehtml $flink])" + append filter_msg "Showing $range of $nr_items $entry_label ($flink)" } set next_p [expr {$nr_items > $page_number*$page_size}] @@ -324,7 +324,7 @@ # default layout for weblog entries - Class create ::xowiki::Weblog::EntryRenderer -instproc render {} { + Class create ::xowiki::Weblog::EntryRenderer -instproc render {{-with_footer false}} { my instvar package_id name title creator creation_user pretty_date description [my set __parent] instvar weblog_obj