Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.153.2.22 -r1.153.2.23
--- openacs-4/packages/xowiki/xowiki.info 25 Nov 2016 14:46:19 -0000 1.153.2.22
+++ openacs-4/packages/xowiki/xowiki.info 27 Jan 2017 14:37:55 -0000 1.153.2.23
@@ -10,7 +10,7 @@
t
xowiki
-
+
Gustaf Neumann
A xotcl-based enterprise wiki system with multiple object types
2016-09-08
@@ -55,7 +55,7 @@
BSD-Style
2
-
+
@@ -65,7 +65,7 @@
-
+
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.44 -r1.485.2.45
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 26 Jan 2017 23:29:54 -0000 1.485.2.44
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 27 Jan 2017 14:37:55 -0000 1.485.2.45
@@ -1470,6 +1470,7 @@
@return cr item object
} {
+
#
# We handle here just loading object instances via item_id, since
# only live_revisions are kept in xowiki_form_instance_item_index.
@@ -1485,9 +1486,10 @@
}
$object set item_id $item_id
- set success [$object db_0or1row [my qn fetch_from_view_item_id] {
+ set sql [::xo::dc prepare -name xowiki_form_instance_item_view -argtypes integer {
select * from xowiki_form_instance_item_view where item_id = :item_id
}]
+ set success [$object db_0or1row [my qn fetch_from_view_item_id] $sql]
if {$success == 0} {
error [subst {
The form page with item_id $item_id was not found in the xowiki_form_instance_item_index.