Index: openacs-4/packages/xowf/lib/inclass-exam.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/inclass-exam.wf,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/xowf/lib/inclass-exam.wf 8 Mar 2020 17:21:50 -0000 1.1.2.2
+++ openacs-4/packages/xowf/lib/inclass-exam.wf 20 Mar 2020 12:00:12 -0000 1.1.2.3
@@ -141,7 +141,7 @@
#:log fullQuestionForm=$fullQuestionForm
set text "
$title
"
set menu ""
-
+
set wf [xowf::test_item::answer_manager get_answer_wf $obj]
if {$wf eq ""} {
:msg "cannot get current workflow for [$obj name]"
@@ -196,7 +196,7 @@
}]
}
}
-
+
set extraAction ""
switch $state {
"created" {
@@ -226,7 +226,7 @@
-target_state done \
-wf $wf]
}
-
+
set qrCode ""
set countdownHTML ""
if {$state eq "published"} {
@@ -248,12 +248,12 @@
$answerStatus
$fullQuestionForm
$qrCode
- $countdownHTML
+ $countdownHTML
}]
set footer "$menu $extraAction"
-
+
#-form [subst { text/html}]
set f [::xowiki::Form new \
-destroy_on_cleanup \
@@ -373,9 +373,11 @@
# "summary_form" of online-exam-answer.wf when the submit
# instance is in state "done". We set the __feedback_mode to
# get the auto-correction included.
- #
+ set current_user [xo::cc user_id]
+ xo::cc user_id [$i creation_user]
$i set __feedback_mode 2
set question_form [$i render_content]
+ xo::cc user_id $current_user
if {$withSignature} {
set answerAttributes [xowf::test_item::renaming_form_loader \
@@ -440,7 +442,7 @@
ns_returnfile 200 image/png $fn
ad_script_abort
}
-
+
########################################################################
# AJAX call "poll"
#