1:  Imports System

   2:  Imports System.Web

   3:  Imports System.Web.UI

   4:  Imports System.Web.UI.WebControls

   5:  Imports ICPC.DNN.Modules.SwitchBoard.Business

   6:   

   7:  Namespace ICPC.DNN.Modules.SwitchBoard

   8:   

   9:      Public MustInherit Class SwitchBoard

  10:          Inherits Entities.Modules.PortalModuleBase

  11:          Implements Entities.Modules.IActionable

  12:          Implements Entities.Modules.IPortable

  13:          Implements Entities.Modules.ISearchable

  14:          Dim _DefaultPage As String = DotNetNuke.Common.ResolveUrl(Me.TemplateSourceDirectory & "/Folder1/control1.ascx")

  15:   

  16:  #Region "Controls"

  17:  #End Region

  18:   

  19:  #Region "Event Handlers"

  20:   

  21:          Private Sub Control_Load()

  22:              Try

  23:                  If Not (Request.Params("PageID") Is Nothing) Then

  24:                      Dim IssuePage As Integer = CInt(Request.Params("PageID"))

  25:                      Select Case IssuePage

  26:                          Case Utility.MultipageDesktopType.View1

  27:                              _DefaultPage = DotNetNuke.Common.ResolveUrl(Me.TemplateSourceDirectory & "/Folder1/control1.ascx")

  28:                          Case Utility.MultipageDesktopType.View2

  29:                              _DefaultPage = DotNetNuke.Common.ResolveUrl(Me.TemplateSourceDirectory & "/Folder2/control2.ascx")

  30:                          Case Utility.MultipageDesktopType.View3

  31:                              _DefaultPage = DotNetNuke.Common.ResolveUrl(Me.TemplateSourceDirectory & "/Folder3/control3.ascx")

  32:                      End Select

  33:   

  34:                  End If

  35:                  Dim objModule As Entities.Modules.PortalModuleBase = CType(Me.LoadControl(_DefaultPage), DotNetNuke.Entities.Modules.PortalModuleBase)

  36:                  If Not objModule Is Nothing Then

  37:                      objModule.ModuleConfiguration = Me.ModuleConfiguration

  38:                      plhContent.Controls.Add(objModule)

  39:                  End If

  40:   

  41:              Catch exc As Exception

  42:                  ProcessModuleLoadException(Me, exc)

  43:              End Try

  44:          End Sub

  45:  #End Region

  46:   

  47:  #Region "Optional Interfaces"

  48:          Public ReadOnly Property ModuleActions() As Entities.Modules.Actions.ModuleActionCollection Implements Entities.Modules.IActionable.ModuleActions

  49:              Get

  50:                  Dim Actions As New Entities.Modules.Actions.ModuleActionCollection

  51:                  Actions.Add(GetNextActionID, Localization.GetString(Entities.Modules.Actions.ModuleActionType.AddContent, LocalResourceFile), Entities.Modules.Actions.ModuleActionType.AddContent, "", "", EditUrl(), False, DotNetNuke.Security.SecurityAccessLevel.Edit, True, False)

  52:                  Return Actions

  53:              End Get

  54:          End Property

  55:   

  56:          Public Function ExportModule(ByVal ModuleID As Integer) As String Implements Entities.Modules.IPortable.ExportModule

  57:              ' included as a stub only so that the core knows this module Implements Entities.Modules.IPortable

  58:          End Function

  59:   

  60:          Public Sub ImportModule(ByVal ModuleID As Integer, ByVal Content As String, ByVal Version As String, ByVal UserID As Integer) Implements Entities.Modules.IPortable.ImportModule

  61:              ' included as a stub only so that the core knows this module Implements Entities.Modules.IPortable

  62:          End Sub

  63:   

  64:          Public Function GetSearchItems(ByVal ModInfo As Entities.Modules.ModuleInfo) As Services.Search.SearchItemInfoCollection Implements Entities.Modules.ISearchable.GetSearchItems

  65:              ' included as a stub only so that the core knows this module Implements Entities.Modules.ISearchable

  66:          End Function

  67:   

  68:  #End Region

  69:   

  70:  #Region " Web Form Designer Generated Code "

  71:   

  72:          'This call is required by the Web Form Designer.

  73:          <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

  74:   

  75:          End Sub

  76:          Protected WithEvents plhContent As System.Web.UI.WebControls.PlaceHolder

  77:   

  78:          'NOTE: The following placeholder declaration is required by the Web Form Designer.

  79:          'Do not delete or move it.

  80:          Private designerPlaceholderDeclaration As System.Object

  81:   

  82:          Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

  83:              'CODEGEN: This method call is required by the Web Form Designer

  84:              'Do not modify it using the code editor.

  85:              InitializeComponent()

  86:              Control_Load()

  87:          End Sub

  88:   

  89:  #End Region

  90:      End Class

  91:   

  92:  End Namespace

  93: