Imports BVSoftware.BVC.Core


Public Class products_categories_edit_products
    Inherits BaseAdminPage

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
	Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
    Protected WithEvents CancelButton As System.Web.UI.WebControls.ImageButton
    Protected WithEvents SaveButton As System.Web.UI.WebControls.ImageButton
    Protected WithEvents lblCategoryName As System.Web.UI.WebControls.Label
    Protected WithEvents lstSelected As System.Web.UI.WebControls.ListBox
    Protected WithEvents btnAdd As System.Web.UI.WebControls.ImageButton
    Protected WithEvents btnRemove As System.Web.UI.WebControls.ImageButton
    Protected WithEvents MetaDescriptionControl As BVSoftware.WebControls.MetaTag
    Protected WithEvents MetaKeywordsControl As BVSoftware.WebControls.MetaTag
	Protected WithEvents msg As BVSoftware.WebControls.WebPageMessage


    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Protected WithEvents ProductPicker1 As ProductPicker

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BVC2004Store.CheckThisPage(Security.RolePermission.LoginToAdmin)
        BVC2004Store.CheckThisPage(Security.RolePermission.AccessProductArea)
        If Not Page.IsPostBack Then
            MetaKeywordsControl.Content = WebAppSettings.MetaKeywords
            MetaDescriptionControl.Content = WebAppSettings.MetaDescription

            Dim ID As Integer = Request.Params("id")
            If ID > 0 Then
                ViewState("ID") = ID
            Else
                ViewState("ID") = 0
            End If

            LoadProducts()

        End If
    End Sub

    Private Sub LoadProducts()
        msg.Clear()

        Dim c As Catalog.Category
        c = CatalogServices.Categories.GetCategory(ViewState("ID"))

        If Not c Is Nothing Then

            Me.lblCategoryName.Text = c.Name

            Me.lstSelected.DataSource = CatalogServices.Categories.GetProductsIgnoreInventory(c)
            Me.lstSelected.DataTextField = "ProductName"
            Me.lstSelected.DataValueField = "id"
            Me.lstSelected.DataBind()

            'Me.lstAvailable.DataSource = CatalogServices.Categories.GetProductsNotManuallySelected(c)
            'Me.lstAvailable.DataTextField = "ProductName"
            'Me.lstAvailable.DataValueField = "id"
            'Me.lstAvailable.DataBind()

        Else
            msg.ShowError("Couldn't load category " & ViewState("ID"))
        End If
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnAdd.Click

        For i As Integer = 0 To ProductPicker1.SelectedProducts.Count - 1
            CatalogServices.Categories.AddProductToCategory(ViewState("ID"), ProductPicker1.SelectedProducts(i))
        Next
        'For i As Integer = 0 To Me.lstAvailable.Items.Count - 1
        '    If Me.lstAvailable.Items(i).Selected = True Then
        '        CatalogServices.Categories.AddProductToCategory(ViewState("ID"), lstAvailable.Items(i).Value)
        '    End If
        'Next
        LoadProducts()
    End Sub

    Private Sub btnRemove_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnRemove.Click
        For i As Integer = 0 To Me.lstSelected.Items.Count - 1
            If Me.lstSelected.Items(i).Selected = True Then
                CatalogServices.Categories.RemoveProductFromCategory(ViewState("ID"), lstSelected.Items(i).Value)
            End If
        Next
        LoadProducts()
    End Sub

    Private Sub CancelButton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles CancelButton.Click
        Response.Redirect("products_categories_edit.aspx?id=" & ViewState("ID"))
    End Sub

    Private Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles SaveButton.Click
        Response.Redirect("products_categories_edit.aspx?id=" & ViewState("ID"))
    End Sub
End Class