Hi,

I'm using Artisteer and  lacking any fix from them am trying to mend some skin functionality. For the menu two calls fail:

Dim cmdLogin As LinkButton = CType(Me.dnnLogin.FindControl("cmdLogin"), LinkButton)

and

Dim cmdRegister As LinkButton = CType(Me.dnnUser.FindControl("cmdRegister"), LinkButton)

I have heard a rumour that this fails because the serverID of these controls have changed in DNN6, so they can not be found. Can anyone help me with the new serverID 's please or how to find them?

Many thanks

Rob

OK so I managed to work this out. I've updated the code in \DesktopModules\ArtMenuSO\ArtMenuSO.ascx.vb to try both DNN5 and DNN6 names for these controls, and bail out gracefully if it can't find them. Below is code to replace the Page_PreRender function. DNN changed the items to hyperlinks instead of linkbuttons.

Hope this helps, Rob

Private Sub Page_PreRender(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.PreRender


           Try
                If Not Me.ShowLoginTab Then
                    Me.dnnLogin.Visible = False
                Else
                    If Not (Me.dnnLogin.FindControl("cmdLogin") Is Nothing) Then
                        REM DNN5                        
                        Dim cmdLogin As LinkButton = CType(Me.dnnLogin.FindControl("cmdLogin"), LinkButton)
                        cmdLogin.Text = String.Format("<span l""></span><span r""></span><span t"">{0}</span>", cmdLogin.Text)
                        cmdLogin.ControlStyle.Reset()
                    ElseIf Not (Me.dnnLogin.FindControl("loginLink") Is Nothing) Then
                        REM DNN6
                        Dim cmdLogin As HyperLink = CType(Me.dnnLogin.FindControl("loginLink"), HyperLink)
                        cmdLogin.Text = String.Format("<span l""></span><span r""></span><span t"">{0}</span>", cmdLogin.Text)
                        cmdLogin.ControlStyle.Reset()
                    Else
                        Me.dnnLogin.Visible = False
                    End If

                End If
                If Not Me.ShowUserTab Then
                    Me.dnnUser.Visible = False
                Else
                    If Not (Me.dnnUser.FindControl("cmdRegister") Is Nothing) Then
                        REM DNN5
                        Dim cmdRegister As LinkButton = CType(Me.dnnUser.FindControl("cmdRegister"), LinkButton)
                        cmdRegister.Text = String.Format("<span l""></span><span r""></span><span t"">{0}</span>", cmdRegister.Text)
                        cmdRegister.ControlStyle.Reset()
                    ElseIf Not (Me.dnnUser.FindControl("registerLink") Is Nothing) Then
                        REM DNN6
                        Dim cmdRegister As HyperLink = CType(Me.dnnUser.FindControl("registerLink"), HyperLink)
                        cmdRegister.Text = String.Format("<span l""></span><span r""></span><span t"">{0}</span>", cmdRegister.Text)
                        cmdRegister.ControlStyle.Reset()
                    Else
                        Me.dnnUser.Visible = False
                    End If

                End If

                If TypeOf (Me.Parent) Is HtmlGenericControl Then
                    If CType(Me.Parent, HtmlGenericControl).Attributes("class") = "DNNEmptyPane" Then
                        CType(Me.Parent, HtmlGenericControl).Attributes.Remove("class")
                    End If
                End If

            Catch ex As Exception
                ProcessModuleLoadException(Me, ex)
            End Try

        End Sub
: