Permalink
Browse files

Don't put empty site node folders into the breadcrumbs (that is, site…

… nodes not having a package underneath)
  • Loading branch information...
Elettrotecnica committed Jan 16, 2017
1 parent e928992 commit 37d725e6cdea0e8b66b96a63e17b63e99f399e2b
Showing with 6 additions and 2 deletions.
  1. +6 −2 packages/acs-tcl/tcl/navigation-procs.tcl
@@ -61,7 +61,7 @@ ad_proc ad_context_node_list {
} {
set context [list]

while { $node_id ne "" } {
while { $node_id ne "" } {
array set node [site_node::get -node_id $node_id]

# JCD: Provide something for the name if the instance name is
@@ -72,7 +72,11 @@ ad_proc ad_context_node_list {
set node(instance_name) $node(name)
}

set context [concat [list [list $node(url) [ns_quotehtml $node(instance_name)]]] $context]
# don't collect link for nodes without an object underneath
# (e.g. empty site folders), as they would just be dead links
if {$node(object_id) ne ""} {
set context [list [list $node(url) [ns_quotehtml $node(instance_name)]] {*}$context]
}

# We have the break here, so that 'from_node' itself is included
if {$node_id eq $from_node} {

0 comments on commit 37d725e

Please sign in to comment.