tdom::get_tag_value (public)

 tdom::get_tag_value node_object [ args... ]

Defined in packages/acs-tcl/tcl/tdom-procs.tcl

Returns the tag value of the tag_name passed in If tag doesn't exist or the value is null, returns null

    Example -----------------------------------------------------
    XML:     <experiment-id>1222</experiment-id>
    Params:  node_object=$document
             args=experiment-id EXPERIMENT-ID
    Returns: 1222
    End Example -------------------------------------------------
    

Parameters:

node_object (required)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    # Do a loop for the args. The first non null result is returned
    set tag_value ""

    foreach tag_name $args {
        catch {set tag_value [[$node_object getElementsByTagName "$tag_name"] text]} errormsg
        if {[string trim $tag_value] ne "" } {
            return $tag_value
        }
    }

    return $tag_value

XQL Not present:

Generic, PostgreSQL, Oracle