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 -r1.7.2.133 -r1.7.2.134
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl 18 May 2021 20:26:45 -0000 1.7.2.133
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 19 May 2021 14:43:24 -0000 1.7.2.134
@@ -4239,8 +4239,6 @@
#
# Provide a summary of all questions of an exam.
#
- set href [$obj pretty_link -query m=print-answers]
- set form_objs [:question_objs $obj]
set HTML [subst {
#xowf.exam_summary#
@@ -4250,6 +4248,20 @@
}]
+ append HTML [:question_info_block $obj]
+ set return_url [::xo::cc query_parameter local_return_url:localurl [$obj pretty_link]]
+ append HTML "
#xowiki.back#
\n"
+
+ return $HTML
+ }
+
+
+ :public method question_info_block {obj} {
+ #
+ # Provide question info block.
+ #
+ set href [$obj pretty_link -query m=print-answers]
+ set form_objs [:question_objs $obj]
append HTML [subst {
#xowf.question_summary#
@@ -4290,11 +4302,6 @@
}]
}
append HTML "
\n"
-
- set return_url [::xo::cc query_parameter local_return_url:localurl [$obj pretty_link]]
- append HTML "
#xowiki.back#
\n"
-
- return $HTML
}
:public method exam_info_block {-combined_form_info obj} {