Index: openacs-4/packages/xowf/lib/inclass-exam-answer.wf =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/Attic/inclass-exam-answer.wf,v diff -u -r1.1.2.7 -r1.1.2.8 --- openacs-4/packages/xowf/lib/inclass-exam-answer.wf 25 Mar 2020 16:25:14 -0000 1.1.2.7 +++ openacs-4/packages/xowf/lib/inclass-exam-answer.wf 1 Apr 2020 15:03:43 -0000 1.1.2.8 @@ -27,6 +27,7 @@ Property position -default 0 Property return_url -default "" -allow_query_parameter true Property try_out_mode -default 0 -allow_query_parameter true +Property proctor -default 0 -allow_query_parameter true ######################################################################## # @@ -40,7 +41,7 @@ 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] + :payload [list title [$parent_obj title] name $name parent_id [$parent_obj item_id]] } Action initialize -proc activate {obj} { @@ -281,6 +282,12 @@ #:msg set_title-set_parameter-MenuBar-[$obj state] ::xo::cc set_parameter MenuBar 0 ::xo::cc set_parameter template_file view-plain-master + + if {[$obj property proctor 0]} { + template::set_css_property -class header -property display -value none + template::set_css_property -class footer -property display -value none + template::set_css_property -class sidebar -property display -value none + } if {[$parent_obj state] eq "published" && [$obj state] ne "done"} { set target_time [::xowf::test_item::question_manager exam_target_time \