• Toll-free  888-665-8637
  • International  +1 717-220-0012
Welcome Guest! To enable all features please Login or Register.

Notification

Icon
Error

chuck.boyer
#1 Posted : Monday, June 30, 2008 1:54:38 PM(UTC)
chuck.boyer

Rank: Member

Joined: 3/7/2005(UTC)
Posts: 60

I've replaced some lines in the Page_Load event of the BVModules\Controls\LoginMenu.ascx.vb file:

Here is the full method:

Code:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim s As New StringBuilder

        If SessionManager.IsUserAuthenticated = True Then
            If Me.TabIndex <> -1 Then
                s.Append("<a href=""" & Page.ResolveUrl("~/logout.aspx") & """ TabIndex=""" & Me.TabIndex.ToString() & """>")
            Else
                s.Append("<a href=""" & Page.ResolveUrl("~/logout.aspx") & """>")
            End If

            If _ShowUserName = True Then
                Dim u As Membership.UserAccount = Membership.UserAccount.FindByBvin(SessionManager.GetCurrentUserId)
                's.Append("Sign Out (" & u.FirstName & " " & u.LastName & ")")
                s.Append(Content.SiteTerms.GetTerm("Logout"))
                s.Append(" (")
                s.Append(u.FirstName)
                s.Append(" ")
                s.Append(u.LastName)
                s.Append(")")
            Else
                's.Append("Sign Out")
                s.Append(Content.SiteTerms.GetTerm("Logout"))
            End If
            s.Append("</a>")
            Me.litLogin.Text = s.ToString
        Else
            Dim destination As String = Page.ResolveUrl("~/Login.aspx")
            If Me.TabIndex <> -1 Then
                s.Append("<a href=""" & destination & """ TabIndex=""" & Me.TabIndex.ToString() & """>")
            Else
                s.Append("<a href=""" & destination & """>")
            End If
            's.Append("Sign In")
            s.Append(Content.SiteTerms.GetTerm("Login"))
            s.Append("</a>")
            Me.litLogin.Text = s.ToString
        End If
    End Sub


Note the lines commented out are the original BV code. I've added the Content.SiteTerms.GetTerm() and s.Append lines as appropriate.
Chuck Boyer, MCSD.NET
Director of Production and Development

Edge Media, Inc.
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

©2024 Develisys. All rights reserved.
  • Toll-free  888-665-8637
  • International  +1 717-220-0012