xowf::test_item::Answer_manager method dom class add (protected)

 <instance of xowf::test_item::Answer_manager> dom class add \
    domNode xquery class

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

Parameters:

domNode (required)

xquery (required)

class (required)

Testcases:

No testcase defined.

Source code:

set nodes [$domNode selectNodes $xquery]
foreach node $nodes {
  set oldClass [$node getAttribute class]
  if {$class ni $oldClass} {
    $node setAttribute class "$oldClass $class"
  }
}

XQL Not present:

Generic, PostgreSQL, Oracle