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...
1 parent e928992 commit 37d725e6cdea0e8b66b96a63e17b63e99f399e2b @Elettrotecnica Elettrotecnica committed Jan 16, 2017
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.