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.25 -r1.1.2.26 --- openacs-4/packages/xowf/lib/inclass-exam.wf 26 Apr 2020 20:14:20 -0000 1.1.2.25 +++ openacs-4/packages/xowf/lib/inclass-exam.wf 27 Apr 2020 15:10:57 -0000 1.1.2.26 @@ -155,13 +155,13 @@ #:log fullQuestionForm=$fullQuestionForm set text "

$title

" set menu "" - set proctoring [$obj property proctoring] - if {$proctoring eq ""} { - set proctoring 0 - } - if {$proctoring} { - append text "

Exam with Proctoring.

" - } + set proctoring [$obj property proctoring 0] + set synchronized [$obj property synchronized 0] + + append text [subst {

+ [expr {$synchronized ? "" : "Non-"}]Synchronized Exam + [expr {$proctoring ? " with Proctoring" : ""}] +

}] set question_objs [dict get $combined_form_info question_objs] set nrQuestions [llength $question_objs] set randomizationOk [dict get $combined_form_info randomization_for_exam] @@ -553,7 +553,7 @@ set image "" ns_log notice "start date $start_date end_date $end_date / $start_clock $end_clock" foreach f $files { - ns_log notice "check: $f" + #ns_log notice "check: $f" if {[regexp {/([^/]+)-(\d+)[.](webm|png|jpeg)$} $f . type stamp ext]} { set inWindow [expr {$stamp >= $start_clock && $stamp <= $end_clock}] ns_log notice "parsed $type $stamp $ext $inWindow $stamp \ @@ -567,7 +567,7 @@ } set markup "" foreach ts [lsort -integer [dict keys $image]] { - ns_log notice "ts $ts [dict get $image $ts]" + #ns_log notice "ts $ts [dict get $image $ts]" append markup [subst {
[clock format $ts -format {%Y-%m-%d %H:%M:%S}]
}] append markup {
} foreach type {camera-image desktop-image} {