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.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 ""]