Imports System.Collections.Generic
Imports System.Text
Imports CharterDotCom.CommonEntities.Library
Imports CharterDotCom.CommonEntities.Library.Common
Imports CharterDotCom.CommonEntities.Library.Enumerations
Imports CharterDotCom.CommonEntities.Library.EntityMemberServices
Imports CharterDotCom.CommonEntities.Library.EntityEBSServices
Imports CharterDotCom.CommonEntities.Library.EntitySupport
Imports CharterDotCom.CommonEntities.Library.EntitySearch
Imports CharterDotCom.CommonEntities.Library.EntityWebConfig
Imports CharterDotCom.CommonEntities.Library.EntityG2BServices
Imports CharterDotCom.WebSite.Library
Imports CharterDotCom.WebSite.Library.BLCommon

Partial Class Visitors_PrintArticle
    Inherits CharterCMSPage


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not (Request.QueryString(QueryStringName.SupportArticleID) Is Nothing) Then
            ''####################################################################################################
            ''CHANGE ADDED BY ROD COPELAND 5-29-2007 FOR ISSUE ID 2368
            ''####################################################################################################
            ''CUST CARE AREA (DIANA) REQUESTED WHEN SHE CLICKS ON ARTICLE IN CABLE HELP SECTION IN SUPPORT, 
            ''SHE WANTS THE HELPFUL LINKS AND TOP REQUESTS SECTIONS ON THE RIGHT SIDE OF THE PAGE TO SHOW 
            ''CABLE SPECIFIC INFORMATION RATHER THAN INTERNET RELATED INFORMATION.
            ''####################################################################################################
            'ucBrowseSupport.Productategory = MenuItem.CableTV
            'SupportHelpcontentKey = "Support:CableHelp"
            'ucLocalNavigation.SubItem2 = NonProductItem.SupportCableTV


            lblTitle.Text = "Support"
            'ucLocalNavigation.Item = MenuItem.Support
            'ucFrequentQuestions.Visible = False
            'ucSupportHelpIntroduction.Visible = False
            Dim articleID As Integer = CType(Request.QueryString(QueryStringName.SupportArticleID), Integer)
            ucSupportArticle.ArticleID = articleID
            Dim document As IHTMLDocument = SiteManager.Instance.GetDocument(articleID)
            ucSupportArticle.Document = document
            ucSupportArticle.Visible = True
            ''####################################################################################################
            '' ISSUE ID #5497   07-02-2009  JLN
            ''####################################################################################################
            '' Description:  Document title was not appearing on printable version of document.
            ''      Change:  Added following assignment and corresponding literal control to page.
            ''####################################################################################################
            If (ucSupportArticle.Document.Title.Length > 0) Then
                Me.litTitle.Text = ucSupportArticle.Document.Title
            End If
        End If
    End Sub
End Class
