Index: openacs-4/packages/xowf/lib/inclass-exam-answer.wf =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/inclass-exam-answer.wf,v diff -u -r1.1.2.35 -r1.1.2.36 --- openacs-4/packages/xowf/lib/inclass-exam-answer.wf 5 Apr 2021 18:02:55 -0000 1.1.2.35 +++ openacs-4/packages/xowf/lib/inclass-exam-answer.wf 8 Apr 2021 20:25:27 -0000 1.1.2.36 @@ -98,7 +98,7 @@ } Action instproc set_page {obj increment} { set parent_obj [::xo::db::CrClass get_instance_from_db -item_id [$obj parent_id]] - set pages [:{$QM} question_names $parent_obj] + set pages [[$obj set QM] question_names $parent_obj] set position [:property position 0] incr position $increment if {$position < 0} { @@ -140,7 +140,8 @@ # otherwise add flag. # set flagged [:property flagged {}] - set i [lsearch $flagged [:property position 0]] + set position [:property position 0] + set i [lsearch $flagged $position 0] if {$i > -1} { set flagged [lreplace $flagged $i $i] } else {