Index: openacs-4/packages/xowf/xowf.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/xowf.info,v
diff -u -r1.12.2.81 -r1.12.2.82
--- openacs-4/packages/xowf/xowf.info 23 Mar 2022 20:40:59 -0000 1.12.2.81
+++ openacs-4/packages/xowf/xowf.info 25 Mar 2022 19:28:16 -0000 1.12.2.82
@@ -10,17 +10,17 @@
t
xowf
-
+
Gustaf Neumann
XoWiki Content Flow - an XoWiki based workflow system implementing state-based behavior of wiki pages and forms
2021-09-15
WU Vienna
BSD-Style
2
-
+
-
+
Index: openacs-4/packages/xowf/lib/answer-single-question.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/answer-single-question.wf,v
diff -u -r1.1.2.7 -r1.1.2.8
--- openacs-4/packages/xowf/lib/answer-single-question.wf 24 Jan 2022 18:11:37 -0000 1.1.2.7
+++ openacs-4/packages/xowf/lib/answer-single-question.wf 25 Mar 2022 19:28:16 -0000 1.1.2.8
@@ -21,7 +21,7 @@
# via a workflow definition ($obj is a workflow definition)
#
set package_id [$obj package_id]
- set parent_id [$package_id query_parameter parent_id:int32]
+ set parent_id [$package_id query_parameter parent_id:cr_item_of_package,arg=$package_id]
set parent_obj [::xo::db::CrClass get_instance_from_db -item_id $parent_id]
set name [ns_md5 $parent_id-[::xo::cc set untrusted_user_id]]
Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -r1.28.2.70 -r1.28.2.71
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl 25 Feb 2022 12:56:18 -0000 1.28.2.70
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl 25 Mar 2022 19:28:16 -0000 1.28.2.71
@@ -2000,7 +2000,7 @@
# If these values are not set, try to obtain it the old-fashioned way.
#
if {$parent_id == 0} {
- set parent_id [:query_parameter parent_id:int32 [$package folder_id]]
+ set parent_id [:query_parameter parent_id:cr_item_of_package,arg=${:package_id} [$package folder_id]]
}
if {$name eq ""} {
set name [:property name ""]