Index: openacs-4/packages/xowiki/xowiki.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v diff -u -r1.180.2.14 -r1.180.2.15 --- openacs-4/packages/xowiki/xowiki.info 29 Jul 2019 17:13:24 -0000 1.180.2.14 +++ openacs-4/packages/xowiki/xowiki.info 13 Aug 2019 16:58:30 -0000 1.180.2.15 @@ -10,7 +10,7 @@ t xowiki - + Gustaf Neumann A xotcl-based enterprise wiki system with multiple object types 2017-08-06 @@ -55,7 +55,7 @@ BSD-Style 2 - + @@ -130,6 +130,7 @@ + Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v diff -u -r1.57.2.5 -r1.57.2.6 --- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl 9 Aug 2019 08:29:28 -0000 1.57.2.5 +++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl 13 Aug 2019 16:58:31 -0000 1.57.2.6 @@ -96,10 +96,15 @@ ad_proc dict_as_hkey {dict} { @return dict value in form of a hstore key. } { + set max_value_size [parameter::get_global_value -package_key xowiki -parameter hstore_max_value_size -default 0] set keys {} foreach {key value} $dict { set v [double_quote $value] - if {$v eq ""} continue + if {$v eq "" + || ($max_value_size > 0 && [string length $v] >= $max_value_size) + } { + continue + } lappend keys [double_quote $key]=>$v } return [join $keys ,]