[clock format $ts -format {%Y-%m-%d %H:%M:%S}]
}]
+ append markup {}
+ foreach type {camera-image desktop-image} {
+ if {[dict exists $image $ts $type]} {
+ set ext [dict get $image $ts $type]
+ append markup [subst {
}]
+ }
+ }
+ if {[dict exists $image $ts camera-audio]} {
+ set ext [dict get $image $ts camera-audio]
+ append markup [subst {}]
+ }
+ append markup
\n
+ }
+ return $markup
+ }
+
+ #----------------------------------------------------------------------
+ # Class: Answer_manager
+ # Method: student_submissions
+ #----------------------------------------------------------------------
+ :method student_submissions {
+ {-creation_user:integer,0..1 ""}
+ {-filter_id:integer,0..1 ""}
+ {-revision_id:integer,0..1 ""}
+ {-wf:object}
+ } {
+ #
+ # Return an ordered composite built form all student submission,
+ # potentially filtered via the provided values.
+ #
+ if {$revision_id ne ""} {
+ #
+ # In case we have a revision_id, return this single
+ # revision.
+ #
+ set r [::xowiki::FormPage get_instance_from_db -revision_id $revision_id]
+ set submissions [::xo::OrderedComposite new -destroy_on_cleanup]
+ $submissions add $r
+ } else {
+ set submissions [:get_wf_instances \
+ {*}[expr {$creation_user ne "" ? "-creation_user $creation_user" : ""}] \
+ {*}[expr {$filter_id ne "" ? "-item_id $filter_id" : ""}] \
+ $wf]
+ }
+
+ #
+ # Provide additional attributes to the instances such as the
+ # userName and fullName.
+ #
+ foreach submission [$submissions children] {
+ $submission set online-exam-userName \
+ [acs_user::get_element \
+ -user_id [$submission creation_user] \
+ -element username]
+ $submission set online-exam-fullName \
+ [::xo::get_user_name [$submission creation_user]]
+ }
+
+ return $submissions
+ }
+
+ #----------------------------------------------------------------------
+ # Class: Answer_manager
+ # Method: render_print_button
+ #----------------------------------------------------------------------
+ :method render_print_button {} {
+ #
+ # Render a simple print button for the unaware that makes it
+ # easy to print the exam protocol to PDF and use e.g. a pdf-tool
+ # to annotate free text answers. The function is designed to
+ # work with streaming HTML output.
+ #
+ # @return HTML rendering
+ #
+
+ template::add_event_listener \
+ -id print-button \
+ -event click \
+ -preventdefault=false \
+ -script "window.print();"
+
+ return [subst {
+
+ [template::collect_body_scripts]
}]
- $items orderby online-exam-userName
- foreach i [$items children] {
- set last_answers {}
- set rev_nr 1
- set q_nr 0
- set qnames ""
- set report ""
- set student_href [$examWf pretty_link -query m=print-answers&id=[$i set item_id]]
+ }
+
+ #----------------------------------------------------------------------
+ # Class: Answer_manager
+ # Method: render_submission=exam_protocol
+ #----------------------------------------------------------------------
+ :method render_submission=exam_protocol {
+ {-autograde:boolean false}
+ {-combined_form_info}
+ {-examWf:object}
+ {-filter_id:integer,0..1 ""}
+ {-form_objs:integer,0..n ""}
+ {-grading_scheme:object}
+ {-recutil:object,0..1 ""}
+ {-revision_id:integer,0..1 ""}
+ {-submission:object}
+ {-totalPoints:double}
+ {-runtime_panel_view default}
+ {-wf:object}
+ {-with_signature:boolean false}
+ {-with_exam_heading:boolean true}
+ } {
- set revision_sets [$i get_revision_sets -with_instance_attributes]
- foreach s $revision_sets {
- set msgs {}
- set ia [ns_set get $s instance_attributes]
- foreach key [dict keys $ia *_] {
- if {![dict exists $qnames $key]} {
- dict set qnames $key [incr q_nr]
- }
- set value [dict get $ia $key]
- #
- # Determine the question type
- #
- set form_obj [dict get $nameToQuestionObj $key]
- set template_obj [$form_obj page_template]
- if {[$template_obj name] eq "en:edit-interaction.wf"} {
- set item_type [dict get [$form_obj instance_attributes] item_type]
- } else {
- switch [$template_obj name] {
- en:TestItemShortText.form {set item_type ShortText}
- en:TestItemText.form {set item_type Text}
- default {set item_type unknown}
- }
- }
- #ns_log notice "Template name = [$template_obj name] -> item_type '$item_type'"
+ set userName [$submission set online-exam-userName]
+ set fullName [$submission set online-exam-fullName]
- #
- # For the time being, compute the differences just for short text questions
- #
- if {$item_type in {ShortText}} {
- foreach answer_key [dict keys $value] {
- set answer_value [string trim [dict get $value $answer_key]]
- set what ""
- if {[dict exists $last_answers $answer_key]} {
- set last_value [dict get $last_answers $answer_key]
- } else {
- set last_value ""
- }
- if {$last_value ne ""} {
- if {$answer_value eq ""} {
- set what cleared
- ns_log notice " ==> $answer_key: answer_value '$last_value' cleared in revision $rev_nr"
- } elseif {$answer_value ne $last_value} {
- set what updated
- }
- } else {
- # last answer was empty
- if {$answer_value ne ""} {
- set what added
- }
- }
- #
- # Remember last answer values
- #
- dict set last_answers $answer_key $answer_value
- if {$what ne ""} {
- if {$what eq "cleared"} {
- set answer_value $last_value
- }
- lappend msgs [subst {
-
- q[string map [list answer "" {*}$qnames] $answer_key] $what [ns_quotehtml '$answer_value']
-
- }]
- }
- }
- } else {
- #
- # Show the full content of the field
- #
- if {$value ne ""} {
- lappend msgs [subst {
- q[string map [list answer "" {*}$qnames] $key]:
- [ns_quotehtml '$value']
- }]
- }
- }
- }
- append report [subst {
- [format %02d $rev_nr]:
- [join $msgs {; }]- }] - incr rev_nr + #if {[$submission state] ne "done"} { + # ns_log notice "online-exam: submission of $userName is not finished (state [$submission state])" + # return "" + #} + + set revisions [$submission get_revision_sets] + if {[llength $revisions] <=1 } { + # just an initial revision + ns_log notice "online-exam: submission of $userName is empty. Ignoring." + return "" + } + + # + # The call to "render_content" calls actually the + # "summary_form" of online/inclass-exam-answer.wf when the submit + # instance is in state "done". We set the __feedback_mode to + # get the auto-correction included. + # + foreach f [::xowiki::formfield::FormField info instances -closure] { + #ns_log notice "FF could DESTROY $f [$f name]" + if {[string match *_ [$f name]]} { + #ns_log notice "FF DESTROY $f [$f name]" + $f destroy } + } + $wf form_field_flush_cache - append HTML [subst { -
online-exam-actual_signature: $sha256
\n"
+ set submissionSignature [$submission property signature ""]
+ if {$submissionSignature ne ""} {
+ append signatureString "#xowf.online-exam-submission_signature#: $submissionSignature
\n"
+ }
+ } else {
+ set signatureString ""
+ }
+
+ set time [::xo::db::tcl_date [$submission property _last_modified] tz_var]
+ set pretty_date [clock format [clock scan $time] -format "%Y-%m-%d"]
+
+ #
+ # If we filter by student and the exam is proctored, display
+ # the procoring images as well.
+ #
+ if {$filter_id ne "" && [$examWf property proctoring] eq "t"} {
+ set markup [:render_proctor_images \
+ -submission $submission \
+ -examWf $examWf \
+ -revision_id $revision_id]
+ set question_form [subst {
+
+
}]
+ }
+ if {$runtime_panel_view ne ""} {
+ set gradingInfo [$grading_scheme print -achieved_points $achieved_points]
+ set gradingPanel [:dict_value $gradingInfo panel ""]
+ set runtime_panel [:runtime_panel \
+ -revision_id $revision_id \
+ -view $runtime_panel_view \
+ -grading_info $gradingPanel \
+ $submission]
+ if {$autograde} {
+ set grade [$grading_scheme grade -achieved_points $achieved_points]
+ ns_log notice "CSV $userName\t[dict get $gradingInfo csv]"
+ dict incr :grade_dict $grade
+ append :grade_csv $userName\t[dict get $gradingInfo csv]\n
+ }
+ } else {
+ set runtime_panel ""
}
- append HTML "
+
+ $question_form
+ $markup
+