Index: openacs-4/packages/xowf/lib/answer-single-question.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/Attic/answer-single-question.wf,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/xowf/lib/answer-single-question.wf	23 Nov 2020 19:45:01 -0000	1.1.2.2
+++ openacs-4/packages/xowf/lib/answer-single-question.wf	24 Apr 2021 19:31:34 -0000	1.1.2.3
@@ -94,28 +94,8 @@
   #
   set form_obj ::[$obj parent_id]
 
-  set question_infos [::xowf::test_item::question_manager describe_form $form_obj]
-  foreach question_info $question_infos {
-    if {$question_info ne ""} {
-      #
-      # The handled metrics are currently hardcoded here. So, we can
-      # rely on having the returned value in the message keys. The
-      # list order is important, since it determines also the ordering
-      # in the message.
-      #
-      foreach metric { choice_options sub_questions nrcorrect shuffle } {
-        if {[dict exists $question_info $metric]} {
-          set m [dict get $question_info $metric]
-          switch $metric {
-            nrcorrect { append msg " (#xowf.Correct# $m) " }
-            shuffle   { append msg "<strong>#xowf.Shuffle#:</strong> #xowf.shuffle_$m# " }
-            default   { append msg "<strong>#xowf.$metric#:</strong> $m "}
-          }
-        }
-      }
-      #append  msg " <pre>$question_info</pre> "
-      util_user_message -html -message $msg
-    }
+  foreach chunk [::xowf::test_item::question_manager describe_form -asHTML $form_obj] {
+    util_user_message -html -message $chunk
   }
   return $form_obj
 }