1:  Imports DotNetNuke

   2:  Imports System.Text

   3:  Imports System.Web

   4:  Namespace ICPC.DNN.Modules.SwitchBoard

   5:   

   6:      Public Class Utility

   7:          Public Enum MultipageDesktopType

   8:              View1

   9:              View2

  10:              View3

  11:          End Enum

  12:   

  13:          Public Enum MultipageEditType

  14:              Edit1

  15:              Edit2

  16:              Edit3

  17:          End Enum

  18:   

  19:          Public Shared Function BuildDesktopLink(ByVal TabId As Integer, ByVal Page As MultipageDesktopType) As String

  20:              Dim sb As New StringBuilder

  21:              sb.Append("~/DesktopDefault.aspx?tabid=")

  22:              sb.Append(TabId.ToString)

  23:              sb.Append("&PageID=")

  24:              sb.Append(Page)

  25:              Return sb.ToString

  26:          End Function

  27:   

  28:          Public Shared Function BuildEditLink(ByVal ModuleID As Integer, ByVal Page As MultipageEditType) As String

  29:              Dim sb As New StringBuilder

  30:              sb.Append("~/EditModule.aspx?mid=")

  31:              sb.Append(ModuleID.ToString)

  32:              sb.Append("&PageID=")

  33:              sb.Append(Page)

  34:              Return sb.ToString

  35:          End Function

  36:   

  37:   

  38:      End Class

  39:  End Namespace