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

 <instance of xowf::test_item::Question_manager> question_randomization_ok \
    form_obj

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

Parameters:

form_obj (required)

Testcases:

No testcase defined.

Source code:

set randomizationOk 1
set qd [:dict_value [$form_obj instance_attributes] question]
if {$qd ne ""} {
  #
  # No question should have shuffle "always".
  #
  if {[:dict_value $qd question.shuffle] eq "always"} {
    #ns_log notice "FOUND shuffle $qd"
    set randomizationOk 0
  }
}
return $randomizationOk

XQL Not present:

Generic, PostgreSQL, Oracle