Index: openacs-4/packages/xowf/lib/inclass-quiz-answer.wf =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/inclass-quiz-answer.wf,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/xowf/lib/inclass-quiz-answer.wf 25 Nov 2019 14:51:46 -0000 1.1.2.1 +++ openacs-4/packages/xowf/lib/inclass-quiz-answer.wf 26 Nov 2019 18:16:54 -0000 1.1.2.2 @@ -28,9 +28,10 @@ Action allocate -proc activate {obj} { # Called, when we try to create or use a workflow instance # via a workflow definition ($obj is a workflow definition) - $obj set_property -new 1 name ___[::xo::cc set untrusted_user_id] - set parent_obj [::xo::db::CrClass get_instance_from_db -item_id [$obj parent_id]] - :payload [list title [$parent_obj title]] + set parent_id [$obj parent_id] + set name [ns_md5 $parent_id-[::xo::cc set untrusted_user_id]] + set parent_obj [::xo::db::CrClass get_instance_from_db -item_id $parent_id] + :payload [list title [$parent_obj title] name $name] } Action initialize -proc activate {obj} { Index: openacs-4/packages/xowf/lib/online-exam-answer.wf =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/online-exam-answer.wf,v diff -u -r1.2.2.11 -r1.2.2.12 --- openacs-4/packages/xowf/lib/online-exam-answer.wf 25 Nov 2019 18:20:59 -0000 1.2.2.11 +++ openacs-4/packages/xowf/lib/online-exam-answer.wf 26 Nov 2019 18:16:54 -0000 1.2.2.12 @@ -37,9 +37,10 @@ Action allocate -proc activate {obj} { # Called, when we try to create or use a workflow instance # via a workflow definition ($obj is a workflow definition) - $obj set_property -new 1 name ___[::xo::cc set untrusted_user_id] - set parent_obj [::xo::db::CrClass get_instance_from_db -item_id [$obj parent_id]] - :payload [list title [$parent_obj title]] + set parent_id [$obj parent_id] + set name [ns_md5 $parent_id-[::xo::cc set untrusted_user_id]] + set parent_obj [::xo::db::CrClass get_instance_from_db -item_id $parent_id] + :payload [list title [$parent_obj title] name $name] } Action initialize -proc activate {obj} {