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 -N -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/xowf/lib/inclass-exam-answer.wf	22 Mar 2020 18:18:49 -0000	1.1.2.5
+++ openacs-4/packages/xowf/lib/inclass-exam-answer.wf	23 Mar 2020 16:54:47 -0000	1.1.2.6
@@ -172,7 +172,7 @@
 # Field-renaming form loader
 #
 proc working_form_loader {ctx form_name} {
-  ns_log notice "============ working_form_loader"
+  #ns_log notice "============ working_form_loader"
   set obj [$ctx object]
 
   #
@@ -183,6 +183,7 @@
   if {[$obj exists online-exam-userName]} {
     return [done_form_loader $ctx $form_name]
   }
+  
   set item_nr [$obj property position]
 
   set parent_id [$obj parent_id]
@@ -197,7 +198,7 @@
   set position [::xowf::test_item::question_manager shuffled_index \
                     -shuffle_id $shuffle_id \
                     $parent_obj $item_nr]
-  ns_log notice "============ working_form_loader load form on pos $position"
+  #ns_log notice "============ working_form_loader load form on pos $position"
   #
   # Load the form.
   #
@@ -277,8 +278,11 @@
   #ns_log notice "SETTING $obj title [join $title { · }]"
   $obj title [join $title " · "]
 
+  set target_time [::xowf::test_item::question_manager exam_target_time -manager $parent_obj -instance $obj]
+  
   #:msg set_title-set_parameter-MenuBar-[$obj state]
   ::xo::cc set_parameter MenuBar 0
+  ::xo::cc set_parameter top_includelet [list countdown-timer -target_time $target_time]
   ::xo::cc set_parameter template_file view-plain-master
 }