
Partial Class Visitors_AskCharterChatLiveGeneralQuestion
    Inherits CharterCMSPage

    Dim chatmapping As String
    Dim orderID As String
    Dim userfname As String = ""
    Dim phoneNum As String = ""
    Dim reformatPhone As String = ""
    Dim mailaddress As String = ""
    Dim userlname As String = ""

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

        SetPageTitle("Chat")

        '-----------------------------------------------------------------------------------------------------
        ' ISSUE #6809  10-01-2010  JLN
        '-----------------------------------------------------------------------------------------------------
        ' Description:  Re-opened issue to fix chat queues that are used for this page.
        '      Change:  Added this code to pre-select a chat queue, if an appropriate queue is specified on
        '               the page call with a "d" querystring parameter.
        '-----------------------------------------------------------------------------------------------------
        If Not Me.IsPostBack Then

            '-------------------------------------------------------------------
            ' Check for chat queue specified on page call.
            '-------------------------------------------------------------------
            If Request.QueryString("d") IsNot Nothing Then

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

                '---------------------------------------------------------------
                ' Pre-select chat queue, only if the queue number corresponds
                ' to a queue that can be selected with this page.
                '---------------------------------------------------------------
                Select Case chatQueue

                    Case "20934"
                        Me.di.Value = chatQueue
                        Me.rdoCable.Checked = True

                    Case "20933"
                        Me.di.Value = chatQueue
                        Me.rdoInternet.Checked = True

                    Case "21102"
                        Me.di.Value = chatQueue
                        Me.rdoTelephone.Checked = True

                    Case "20932"
                        Me.di.Value = chatQueue
                        Me.rdoPricingOrderServices.Checked = True

                    Case "20935"
                        Me.di.Value = chatQueue
                        Me.rdoBillingInquiries.Checked = True

                    Case "47762"
                        '-----------------------------------------------------------------------------------------------------
                        ' ISSUE #12742  04-04-2011  JLN
                        '-----------------------------------------------------------------------------------------------------
                        ' Description:  Add new option to chat entry page - Transfer/Change Services.
                        '      Change:  Added new radio button (rdoTransfer) to page.  Added "d=38509" querystring option
                        '               to this case structure to pre-select corresponding queue-id.
                        '-----------------------------------------------------------------------------------------------------
                        Me.di.Value = chatQueue
                        Me.rdoTransfer.Checked = True

                End Select

            End If

        End If

    End Sub

End Class
