Add "intranet" menu start filter

[Timo-Breumelhof]

I some cases it's more comfortable for a DNN CMS administrator if the Theme itself "makes" a visual switch based on the root page. This can be useful for for instance an Intranet based that's located in a page structure inside the main website.

Something like:

Home News Products Intranet Home News Files Contact

I now mostly add custom code for this to the Them / Skin, but I think it would be useful to use SH for this.

---

<script runat="server">

    Dim strIntranet = "intranet"
    Dim IsIntra as Boolean = IsIntranet(strIntranet)

    Function IsIntranet(Root as String) as Boolean

    If PortalSettings.ActiveTab.BreadCrumbs(0).TabName.ToLower = Root.ToLower Then
        Return True
    Else
        Return False
    End If

    End Function

</script>

<% If IsIntra = False Then %>
   <h1><a href="//<%=PortalSettings.PortalAlias.HttpAlias%>/<%=strIntranet%>">Main Website</a></h1>
<% Else %>
   <h1><a href="//<%=PortalSettings.PortalAlias.HttpAlias%>/">Intranet</a></h1>
<% End If %>

---

Note: Also add start id for DDR menu