Imports BVSoftware.BVC.Core Imports System.IO Imports System.Text Public MustInherit Class AdminProductTabs Inherits System.Web.UI.UserControl Protected WithEvents lnkInfo As System.Web.UI.WebControls.LinkButton Protected WithEvents lnkCategories As System.Web.UI.WebControls.LinkButton Protected WithEvents lnkInventory As System.Web.UI.WebControls.LinkButton Protected WithEvents lnkImages As System.Web.UI.WebControls.LinkButton Protected WithEvents lnkRelated As System.Web.UI.WebControls.LinkButton Protected WithEvents lnkFiles As System.Web.UI.WebControls.LinkButton Protected WithEvents lnkReviews As System.Web.UI.WebControls.LinkButton Protected WithEvents lnkVolumeDiscounts As System.Web.UI.WebControls.LinkButton Protected WithEvents lnkChoices As System.Web.UI.WebControls.LinkButton Protected WithEvents litPlugins As System.Web.UI.WebControls.Literal Protected WithEvents lnkContinue As System.Web.UI.WebControls.LinkButton #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub 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 Public Event ButtonClicked(ByVal sender As Object, ByVal e As EventArgs) Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs) Handles MyBase.Load If Not Page.IsPostBack() Then LoadPlugins() End If End Sub Private Sub lnkInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkInfo.Click RaiseEvent ButtonClicked(Me.lnkInfo, System.EventArgs.Empty) Page.SmartNavigation = False Response.Redirect("products_products_edit.aspx?id=" & Request("id")) End Sub Private Sub lnkCategories_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkCategories.Click RaiseEvent ButtonClicked(Me.lnkCategories, System.EventArgs.Empty) Page.SmartNavigation = False Response.Redirect("products_products_edit_categories.aspx?id=" & Request("id")) End Sub Private Sub lnkInventory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkInventory.Click RaiseEvent ButtonClicked(Me.lnkInventory, System.EventArgs.Empty) Page.SmartNavigation = False Response.Redirect("products_products_edit_inventory.aspx?id=" & Request("id")) End Sub Private Sub lnkImages_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkImages.Click RaiseEvent ButtonClicked(Me.lnkImages, System.EventArgs.Empty) Page.SmartNavigation = False Response.Redirect("products_products_edit_images.aspx?id=" & Request("id")) End Sub Private Sub lnkRelated_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkRelated.Click RaiseEvent ButtonClicked(Me.lnkRelated, System.EventArgs.Empty) Page.SmartNavigation = False Response.Redirect("products_products_edit_related.aspx?id=" & Request("id")) End Sub Private Sub lnkFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkFiles.Click RaiseEvent ButtonClicked(Me.lnkFiles, System.EventArgs.Empty) Page.SmartNavigation = False Response.Redirect("products_products_edit_files.aspx?id=" & Request("id")) End Sub Private Sub lnkContinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkContinue.Click RaiseEvent ButtonClicked(Me.lnkContinue, System.EventArgs.Empty) Page.SmartNavigation = False Dim categoryID As Integer = 0 If Not Session("LastBrowseCategoryID") Is Nothing Then categoryID = Session("LastBrowseCategoryID") End If Response.Redirect("products_products.aspx?categoryID=" & categoryID) End Sub Private Sub lnkReviews_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkReviews.Click RaiseEvent ButtonClicked(Me.lnkFiles, System.EventArgs.Empty) Page.SmartNavigation = False Response.Redirect("products_products_edit_reviews.aspx?id=" & Request("id")) End Sub Private Sub lnkVolumeDiscounts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkVolumeDiscounts.Click RaiseEvent ButtonClicked(Me.lnkFiles, System.EventArgs.Empty) Page.SmartNavigation = False Response.Redirect("products_products_edit_VolumeDiscounts.aspx?id=" & Request("id")) End Sub Private Sub lnkChoices_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkChoices.Click RaiseEvent ButtonClicked(Me.lnkFiles, System.EventArgs.Empty) Page.SmartNavigation = False Response.Redirect("products_products_edit_Choices.aspx?id=" & Request("id")) End Sub Private Sub LoadPlugins() Try Dim physicalPath As String = Request.PhysicalApplicationPath Dim fullPath As String = Path.Combine(physicalPath, "plugins\admin\product\") If Directory.Exists(fullPath) = True Then Dim names() As String = Directory.GetFiles(fullPath, "*.ascx") If names.Length > 0 Then AddHeader() For i As Integer = 0 To names.Length - 1 If i Mod 2 = 0 Then AddPlugin(Path.GetFileName(names(i)), False) Else AddPlugin(Path.GetFileName(names(i)), True) End If Next End If End If Catch ex As Exception EventLog.LogEvent(ex) End Try End Sub Private Sub AddHeader() Me.litPlugins.Text = "
" End Sub Private Sub AddPlugin(ByVal moduleName As String, ByVal odd As Boolean) Dim sb As New StringBuilder sb.Append("") If odd = True Then sb.Append("") Else sb.Append("") End If sb.Append("") sb.Append(Path.GetFileNameWithoutExtension(moduleName).Replace("_", " ")) sb.Append("") Me.litPlugins.Text += sb.ToString() End Sub End Class