''' ----------------------------------------------------------------------------
''' <summary>
''' 
'''     Project:  UI
'''       Class:  Visitors_ChatLiveGeneral
''' 
''' Description:  Web page for specifying customer information to then pass
'''               onto the designated chat queue.
''' 
''' </summary>
''' <remarks>
'''     Remarks:  This page should be called with a "d" query string parameter
'''               specifying the required chat queue-id.
''' </remarks>
''' <history>
''' 	[jnaes]		01/03/2011	Issue #11665.  Initial programming.
''' </history>
''' ----------------------------------------------------------------------------
Partial Class Visitors_ChatLiveGeneral
    Inherits System.Web.UI.Page

#Region "Page_Load"

    ''' ------------------------------------------------------------------------
    ''' <summary>
    ''' 
    '''      Method:  Page_Load
    ''' 
    ''' Description:  Event handler subroutine that executes when the page is
    '''               loading.
    ''' 
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    ''' ------------------------------------------------------------------------
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim queueId As String = Request.QueryString("d")

        '-----------------------------------------------------------------------
        ' If no chat queue is specified, redirect to the normal chat page where
        ' one can be selected.
        '-----------------------------------------------------------------------
        If String.IsNullOrEmpty(queueId) Then
            Response.Redirect("ChatLive.aspx")
        End If

        '-----------------------------------------------------------------------
        ' Assign chat queue-id to form field.
        '-----------------------------------------------------------------------
        Me.di.Value = queueId

    End Sub

#End Region

End Class
