dom::Element:GetByTagName

This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.

The procedure is defined as:

proc dom::Element:GetByTagName {token name} {
    
    array set node [set $token]

    set result {}

    if {$node(node:nodeType) ne "documentFragment" } {
        foreach child [set $node(node:childNodes)] {
            unset -nocomplain childNode
            array set childNode [set $child]
            if {$childNode(node:nodeType) eq "element"
                && [GetField childNode(node:nodeName)] eq $name
            } {
                lappend result $child
            }
        }
    } elseif {[llength $node(document:documentElement)]} {
        # Document Element must exist and must be an element type node
        unset -nocomplain childNode
        array set childNode [set $node(document:documentElement)]
        if {$childNode(node:nodeName) eq $name } {
            set result $node(document:documentElement)
        }
    }

    return $result

}