lang::catalog::get_required_xml_attribute (private)

 lang::catalog::get_required_xml_attribute element attribute

Defined in packages/acs-lang/tcl/lang-catalog-procs.tcl

Return the value of the given attribute and raise an error if the value is missing or empty.

Parameters:

element (required)

attribute (required)

Author:

Peter Marklund <peter@collaboraid.biz>

Testcases:

No testcase defined.

Source code:

    set value [xml_node_get_attribute $element $attribute]

    if { $value eq "" } {
        error "Required attribute \"$attribute\" missing from <[xml_node_get_name $element]>"
    }

    return $value

Generic XQL file:

packages/acs-lang/tcl/lang-catalog-procs.xql

PostgreSQL XQL file:

packages/acs-lang/tcl/lang-catalog-procs-postgresql.xql

Oracle XQL file:

packages/acs-lang/tcl/lang-catalog-procs-oracle.xql