Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -N -r1.7.2.39 -r1.7.2.40
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	23 Mar 2020 15:36:58 -0000	1.7.2.39
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	23 Mar 2020 16:54:47 -0000	1.7.2.40
@@ -1790,6 +1790,7 @@
     #   - question_names
     #   - question_property
     #   - total_minutes
+    #   - exam_target_time
     #
     :public method goto_page {obj:object position} {
       $obj set_property position $position
@@ -1974,6 +1975,15 @@
       return $minutes
     }
 
+    :public method exam_target_time {-manager:object -instance:object} {
+      set combined_form_info [:combined_question_form $manager]
+      set total_minutes [::xowf::test_item::question_manager total_minutes $combined_form_info]
+      set creation_time [::xo::db::tcl_date [$instance creation_date] tz]
+      set target_time [clock format [expr {[clock scan $creation_time] + $total_minutes*60}] \
+                           -format %Y-%m-%dT%H:%M:%S]
+      return $target_time
+    }
+
     :public method current_question_form {
       {-with_numbers:switch false}
       {-with_title:switch false}