All pastes #2075590 Raw Edit

Stuff

public text v1 · immutable
#2075590 ·published 2011-06-06 14:28 UTC
rendered paste body
    Private Sub SelectedIndexChanged(ByVal sender As Object, ByVal selectedLanguage As String)

        Try
            Language.SwitchLanguage(selectedLanguage, Response.Cookies)
            Response.Redirect(Request.Path, False)

        Catch Ex As System.Exception
            Me.LogError(Ex)
        End Try

    End Sub 

   Public Shared Sub SwitchLanguage(ByVal inLanguageID As String, ByRef inCookies As System.Web.HttpCookieCollection)
        Dim lLanguage As Language

        lLanguage = GetLanguage(inLanguageID)
        If (lLanguage IsNot Nothing) Then
            inCookies.Get(cLang)(cID) = inLanguageID
            inCookies.Get(cLang)(cCulture) = lLanguage.Name
            inCookies.Get(cLang).Expires = DateTime.Now.AddDays(365)
        End If

    End Sub