template::get_enclosing_tag (private, deprecated)

 template::get_enclosing_tag tag

Defined in packages/acs-templating/tcl/deprecated-procs.tcl

Deprecated. Invoking this procedure generates a warning.

Reach back into the tag stack for the last enclosing instance of a tag. Typically used where the usage of a tag depends on its context, such as the "group" tag within a "multiple" tag. Deprecated, use:

    set tag [template::enclosing_tag <tag-type>]
    set attribute [template::tag_attribute tag <attribute>]
    

Parameters:

tag (required)

The name of the enclosing tag to look for.

See Also:

• template::enclosing_tag
• template::tag_attribute

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc template::get_enclosing_tag
    set name ""

    variable tag_stack

    set last [expr {[llength $tag_stack] - 1}]

    for { set i $last } { $i >= 0 } { incr i -1 } {

        set pair [lindex $tag_stack $i]

        if {[lindex $pair 0] eq $tag} {
            set name [ns_set get [lindex $pair 1] name]
            break
        }
    }

    return $name

XQL Not present:

Generic, PostgreSQL, Oracle