xowf::test_item::Question_manager method hint_boxes (public)

 <instance of xowf::test_item::Question_manager> hint_boxes \
    [ -question_obj question_obj ] [ -with_feedback ] \
    [ -with_correction_notes ]

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

Render the hint boxes (feedback and correction notes) for a question object.

Switches:

-question_obj (optional, object)

-with_feedback (optional)

-with_correction_notes (optional)

Returns:

HTML

Testcases:

No testcase defined.

Source code:

set HTML ""
if {$with_feedback} {
  set question_data [$question_obj property question]
  foreach feedback {feedback_correct feedback_incorrect} {
    regsub -all _ $feedback - feedback_class
    append HTML [:hint_box  -title #xowf.General_feedback#  -body [:dict_value $question_data question.$feedback ""]  -CSSclass $feedback_class]
  }
}
if {$with_correction_notes} {
  append HTML [:hint_box  -title #xowf.Correction_notes#  -body [:dict_value $question_data question.correction_notes ""]  -CSSclass correction-notes]
}
return $HTML

XQL Not present:

Generic, PostgreSQL, Oracle