xowf::test_item::Question_manager method pretty_nr_alternatives (protected)

 <instance of xowf::test_item::Question_manager> pretty_nr_alternatives \
    question_infos

Defined in packages/xowf/tcl/test-item-procs.tcl

Parameters:

question_infos (required)

Testcases:

No testcase defined.

Source code:

set result {}
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.
    #
    if {[:dict_value $question_info show_max ""] ne ""} {
      foreach key {choice_options sub_questions} {
        if {[dict exists $question_info $key]
            && [dict get $question_info show_max] ne [dict get $question_info $key]
          } {
          set new "[dict get $question_info show_max] #xowf.out_of# [dict get $question_info $key]"
          dict set question_info question_structure $new
        }
      }
    }
    lappend result $question_info
  }
}
return $result

XQL Not present:

Generic, PostgreSQL, Oracle