dir_navbar_list (public)

 dir_navbar_list [ -top ] [ navbar_list_list ]

Defined in packages/directory/tcl/directory-procs.tcl

Switches:

-top

(boolean) (optional)

Parameters:

navbar_list_list (optional)

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

Testcases:

No testcase defined.

Source code:

    set subsite_home [lindex [site_node::get_url_from_object_id -object_id [site_node::closest_ancestor_package -include_self -package_key "acs-subsite"]] 0]

    set package_home [ad_conn package_url]

    set default_elements [list  [list $subsite_home Home] [list $package_home "User Directory"]]

    if { $top_p } {
        set default_elements [lrange $default_elements 0 [expr [llength $default_elements] - 2]]
    }

    set navbar_list_list [concat $default_elements $navbar_list_list]

    set navbar_list {}

    foreach pair $navbar_list_list {
        lappend navbar_list "<a href=[lindex $pair 0]>[lindex $pair 1]</a>"
    }

    return $navbar_list

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/directory/tcl/directory-procs.xql