Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -N -r1.7.2.35 -r1.7.2.36
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl 22 Mar 2020 11:18:21 -0000 1.7.2.35
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 22 Mar 2020 13:48:54 -0000 1.7.2.36
@@ -1339,6 +1339,7 @@
# - per-revision statistics: when revision_id is provided
#
set revision_sets [$answerObj get_revision_sets]
+ set page_info ""
if {$filter_id ne ""} {
set baseUrl [ns_conn url]
@@ -1350,9 +1351,11 @@
if {$rid == [$answerObj revision_id]} {
set suffix "*"
set CSSclass "current"
+ set current_item [expr {[dict get [$answerObj instance_attributes] position] + 1}]
+ set page_info "#xowf.question#: $current_item"
} else {
set suffix ""
- set CSSclass "othter"
+ set CSSclass "other"
}
lappend revision_list [subst {[incr c]$suffix}]
}
@@ -1364,12 +1367,17 @@
set duration [xowf::test_item::answer_manager get_duration $revision_sets]
set IPs [xowf::test_item::answer_manager get_IPs $revision_sets]
set state [$answerObj state]
- set submissionState [expr {$state ne "done" ? "- #xowf.not_submitted#" : ""}]
+ if {$state eq "done"} {
+ set submission_info "#xowf.submitted#"
+ } else {
+ set submission_info "#xowf.not_submitted# ($page_info)"
+ }
set HTML [subst {
$revisionDetails
- #xowf.duration#: [dict get $duration from] - [dict get $duration to]
- ([dict get $duration duration]) $submissionState
- IP: $IPs
+ #xowf.Status#: $submission_info
+ #xowf.Duration#: [dict get $duration from] - [dict get $duration to]
+ ([dict get $duration duration])
+ IP: $IPs
}]
return $HTML