Another thing that I wanted to circumvent was the effect that this block of code has, located at the end of Links.ascx.vb --> Page_Load()
If strLinks = "" Then
strLinks = BuildLinks("", Alignment, strSeparator, strCssClass)
End If
If you set level to "child" and navigate to a tab that has no children, it reverts to displaying links for the tabs on the same level. I worked around it by modifying the code in Links.BuildLinks, as follows:
Select Case Level
Case "Same", ""
If objTab.ParentId = PortalSettings.ActiveTab.ParentId Then
strLinks += strLoop & AddLink(objTab.TabName, objTab.FullUrl, strCssClass)
End If
...was changed to...
Select Case Level
Case "Same", ""
If Me.Level <> "Child" Then 'if we weren't originally in child mode
If objTab.ParentId = PortalSettings.ActiveTab.ParentId Then
strLinks += strLoop & AddLink(objTab.TabName, objTab.FullUrl, strCssClass)
End If
End If
Sean