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 ,]