Index: openacs-4/packages/xowf/lib/inclass-exam.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/Attic/inclass-exam.wf,v
diff -u -r1.1.2.14 -r1.1.2.15
--- openacs-4/packages/xowf/lib/inclass-exam.wf 2 Apr 2020 16:10:07 -0000 1.1.2.14
+++ openacs-4/packages/xowf/lib/inclass-exam.wf 4 Apr 2020 11:32:34 -0000 1.1.2.15
@@ -204,7 +204,7 @@
# In inclass cases, never show all questions on screen, since
# the teacher might have the screen on the projector.
#
- template::add_body_script -script urn:ad:js:bootstrap3
+ template::add_body_script -src urn:ad:js:bootstrap3
set fullQuestionForm [subst {
@@ -219,7 +219,7 @@
"created" {
append extraAction "
" \
"#xowf.online-exam-try_out# " \
- "
#xowf.testrun#"
+ "
#xowf.testrun#"
}
"published" {
append extraAction "
" \
@@ -491,7 +491,7 @@
}
}
-
+
:proc www-qrcode {} {
set aLink [:pretty_link -absolute true -query m=answer]
set fn /tmp/qr-${:item_id}.png
@@ -513,11 +513,20 @@
::xo::cc set_parameter template_file view-plain-master
::xo::cc set_parameter MenuBar 0
- return [:www-view [subst {
-
-
You ([xo::cc user_id]) are being proctored in exam ${:object_id}!
-
- }]]
+ if {[file exists [acs_package_root_dir xowf]/lib/proctored-page.adp]} {
+ set object_id ${:object_id}
+ set object_url $link
+ ${:package_id} return_page -adp /packages/xowf/lib/proctored-page -variables {
+ object_id
+ object_url
+ }
+ } else {
+ return [:www-view [subst {
+
+
You ([xo::cc user_id]) are being proctored in exam ${:object_id}!
+
+ }]]
+ }
}
########################################################################