Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v diff -u -r1.200.2.2 -r1.200.2.3 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 26 Aug 2015 08:58:27 -0000 1.200.2.2 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 3 Sep 2015 08:00:52 -0000 1.200.2.3 @@ -1726,7 +1726,7 @@ set since_condition "time > TO_TIMESTAMP(:since,'YYYY-MM-DD HH24:MI:SS')" set where_clause "package_id=:package_id and $since_condition $extra_where_clause" - set when "
in last $interval" + set when "
in last [ns_quotehtml $interval]" set output "" @@ -1767,7 +1767,7 @@ set users [expr {$count == 0 ? "No registered users" : $count == 1 ? "1 registered user" : "$count registered users"}] - return "
[ns_quotehtml $users$what$when]
$output" + return "
[ns_quotehtml $users$what]$when
$output" } } 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 -r1.70 -r1.70.2.1 --- openacs-4/packages/xowiki/tcl/weblog-procs.tcl 24 Jun 2015 15:38:41 -0000 1.70 +++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl 3 Sep 2015 08:00:53 -0000 1.70.2.1 @@ -274,12 +274,12 @@ if {$page_number ne ""} { set nr [llength [$items children]] - set from [expr {($page_number-1)*$page_size+1}] - set to [expr {($page_number-1)*$page_size+$nr}] + set from [expr {($page_number-1) * $page_size + 1}] + set to [expr {($page_number-1) * $page_size + $nr}] set range [expr {$nr > 1 ? "$from - $to" : $from}] if {$filter_msg ne ""} { - append filter_msg ", $range of $nr_items $entry_label (all, [ns_quotehtml $flink])" + append filter_msg ", $range of $nr_items $entry_label (all, $flink)" } else { append filter_msg "Showing $range of $nr_items $entry_label ($flink)" } @@ -288,7 +288,7 @@ set prev_p [expr {$page_number > 1}] if {$next_p} { - set query [::xo::update_query $query page_number [expr {$page_number+1}]] + set query [::xo::update_query $query page_number [expr {$page_number + 1}]] set next_page_link [::xo::cc url]?$query } if {$prev_p} { Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.485.2.6 -r1.485.2.7 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 2 Sep 2015 11:46:18 -0000 1.485.2.6 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 3 Sep 2015 08:00:53 -0000 1.485.2.7 @@ -1907,21 +1907,21 @@ set ::xowiki_inclusion_depth 1 } if {$::xowiki_inclusion_depth > 10} { - return [my error_in_includelet $arg [_ xowiki.error-includelet-nesting_to_deep]] + return [my error_in_includelet $arg [_ xowiki.error-includelet-nesting_to_deep]]$ch2 } if {[regexp {^adp (.*)$} $arg _ adp]} { if {[catch {lindex $adp 0} errMsg]} { # there is something syntactically wrong incr ::xowiki_inclusion_depth -1 - return [my error_in_includelet $arg [_ xowiki.error-includelet-adp_syntax_invalid]] + return [my error_in_includelet $arg [_ xowiki.error-includelet-adp_syntax_invalid]]$ch2 } set adp [string map {  " "} $adp] # # Check the provided name of the adp file # array set "" [my check_adp_include_path [lindex $adp 0]] if {!$(allowed)} { - return [my error_in_includelet $arg $(msg)] + return [my error_in_includelet $arg $(msg)]$ch2 } set adp_fn $(fn) # @@ -1931,7 +1931,7 @@ if {[llength $adp_args] % 2 == 1} { incr ::xowiki_inclusion_depth -1 set adp $adp_args - return [my error_in_includelet $arg [_ xowiki.error-includelet-adp_syntax_invalid]] + return [my error_in_includelet $arg [_ xowiki.error-includelet-adp_syntax_invalid]]$ch2 } lappend adp_args __including_page [self] @@ -1942,7 +1942,7 @@ set ::template::parse_level $including_page_level incr ::xowiki_inclusion_depth -1 return [my error_in_includelet $arg \ - [_ xowiki.error-includelet-error_during_adp_evaluation]] + [_ xowiki.error-includelet-error_during_adp_evaluation]]$ch2 } return $page$ch2