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 -N -r1.1.2.33 -r1.1.2.34
--- openacs-4/packages/xowf/lib/inclass-exam.wf 17 May 2020 18:52:23 -0000 1.1.2.33
+++ openacs-4/packages/xowf/lib/inclass-exam.wf 6 Jun 2020 16:30:11 -0000 1.1.2.34
@@ -622,7 +622,7 @@
foreach type {camera-image desktop-image} {
if {[dict exists $image $ts $type]} {
set ext [dict get $image $ts $type]
- append markup [subst {}]
+ append markup [subst {}]
}
}
if {[dict exists $image $ts camera-audio]} {
@@ -757,7 +757,7 @@
# The line "
You are being proctored!
" is just a
# placeholder and has to be replaced with real code.
#
- set link [${:package_id} query_parameter link:localurl ""]
+ set link [:query_parameter link:localurl ""]
::xo::cc set_parameter template_file view-plain-master
::xo::cc set_parameter MenuBar 0
@@ -766,10 +766,16 @@
set object_id ${:item_id}
set object_url $link
set upload_url /xowf-proctoring-upload
+ if {[string match *p.try_out_mode=1* $link]} {
+ #set examination_statement_p 0
+ set examination_statement_url ""
+ }
+
${:package_id} return_page -adp /packages/xowf/lib/proctored-page -variables {
object_id
object_url
upload_url
+ examination_statement_url
}
} else {
return [:www-view [subst {
@@ -779,6 +785,7 @@
}]]
}
}
+
:proc www-proctor-image {} {
set type [${:package_id} query_parameter type:ascii ""]
set ts [${:package_id} query_parameter ts:integer ""]