site_node_closest_ancestor_package_url (public, deprecated)

 site_node_closest_ancestor_package_url [ -default default ] \
    [ -package_key package_key ]

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

Deprecated. Invoking this procedure generates a warning.

Returns the url stub of the nearest application of the specified type.

Switches:

-default (optional)

The default value to return if no package of the specified type was found

-package_key (optional)

The types of packages for which we're looking (defaults to subsite packages)

Author:

Michael Bryzek <mbryzek@arsdigita.com>

Created:

2001-02-05

See Also:

• site::node::closest_ancestor_package

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc site_node_closest_ancestor_package_url
    if {$package_key eq ""} {
        set package_key [subsite::package_keys]
    }

    set subsite_pkg_id [site_node::closest_ancestor_package  -include_self  -package_key $package_key  -url [ad_conn url] ]

    if {$subsite_pkg_id eq ""} {
        # No package was found... return the default
        return $default
    }

    return [lindex [site_node::get_url_from_object_id -object_id $subsite_pkg_id] 0]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/deprecated-procs.xql