home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / ewmenu.ascx.vb < prev    next >
Text File  |  2010-08-24  |  6KB  |  91 lines
  1. '
  2. ' ASP.NET code-behind class (Menu)
  3. '
  4.  
  5. Partial Class ewmenu
  6.     Inherits System.Web.UI.UserControl
  7.  
  8.     Public ParentPage As AspNetMaker7_tfpssnet
  9.  
  10.     Public RootMenu As AspNetMaker7_tfpssnet.cMenu
  11.  
  12.     '
  13.     ' User control Page_Load event
  14.     '
  15.  
  16.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  17.         If Not Page.IsPostBack Then
  18.             'If Session.Item("tfpssnet_Status") <> "login" Then
  19.             '    NavMenu.Items(0).ChildItems.Clear()
  20.             '    NavMenu.Items(1).ChildItems.Clear()
  21.             '    NavMenu.Items(2).ChildItems.Clear()
  22.             '    '                NavMenu.Items(2).ChildItems.Clear()
  23.             '    NavMenu.Items(4).ChildItems.Clear()
  24.             '    NavMenu.Items(5).ChildItems.Item(0).Text = "Login"
  25.             '    NavMenu.Items(5).ChildItems.Item(0).NavigateUrl = "login.aspx"
  26.             '    '                NavMenu.Items.Remove(NavMenu.FindItem("\Logout"))
  27.             'Else
  28.             '    NavMenu.Items(0).ChildItems.Item(1).NavigateUrl = "tblSchedulelist.aspx?t=tblSchedule&z_schDate=%3E%3D&x_schDate=" & Today & "&v_schDate=AND&w_schDate=%3C%3D&y_schDate=&z_schEvtID=%3D&x_schEvtID=&z_schLocID=%3D&x_schLocID=&z_schEmpID=%3D&x_schEmpID=&z_schStatus=%3D&x_schStatus=&Submit=Submit"
  29.             '    If Session.Item("tfpssnet_Status_UserLevel") = -1 Then
  30.             '        NavMenu.Items(0).ChildItems.Item(1).NavigateUrl = "tblSchedulelist.aspx?t=tblSchedule&z_schDate=%3E%3D&x_schDate=" & Today & "&v_schDate=AND&w_schDate=%3C%3D&y_schDate=&z_schEvtID=%3D&x_schEvtID=&z_schLocID=%3D&x_schLocID=&z_schEmpID=%3D&x_schEmpID=&z_schStatus=%3D&x_schStatus=&Submit=Submit"
  31.             '        NavMenu.Items(0).ChildItems.Item(2).NavigateUrl = "tblEmployeesList.aspx"
  32.             '    Else
  33.             '        NavMenu.Items(0).ChildItems.Item(1).NavigateUrl = "viewSchedulelist.aspx?t=tblSchedule&z_schDate=%3E%3D&x_schDate=" & Today & "&v_schDate=AND&w_schDate=%3C%3D&y_schDate=&z_schEvtID=%3D&x_schEvtID=&z_schLocID=%3D&x_schLocID=&z_schEmpID=%3D&x_schEmpID=&z_schStatus=%3D&x_schStatus=&Submit=Submit"
  34.             '        NavMenu.Items(0).ChildItems.Item(2).NavigateUrl = "viewEmployeesList.aspx"
  35.             '    End If
  36.  
  37.             '    Select Case Session.Item("tfpssnet_Status_UserLevel")
  38.             '        Case -1     'system admin
  39.             '        Case 0      'default user
  40.             '            NavMenu.Items(0).ChildItems.Clear()
  41.             '            NavMenu.Items(1).ChildItems.Clear()
  42.             '            NavMenu.Items(2).ChildItems.Clear()
  43.             '            NavMenu.Items(4).ChildItems.Clear()
  44.             '        Case 1      'standard user
  45.             '            NavMenu.Items(1).ChildItems.Clear()
  46.             '            NavMenu.Items(2).ChildItems.Clear()
  47.             '            NavMenu.Items(4).ChildItems.Clear()
  48.             '        Case 2      'standard lighting
  49.             '            NavMenu.Items(2).ChildItems.Item(1).ChildItems.Clear()
  50.             '            NavMenu.Items(2).ChildItems.Item(1).Selectable = False
  51.             '            NavMenu.Items(4).ChildItems.Clear()
  52.             '        Case 3      'lighting admin
  53.             '            NavMenu.Items(4).ChildItems.Clear()
  54.             '    End Select
  55.  
  56.             '    NavMenu.Items(5).ChildItems.Item(0).Text = "Logout"
  57.             '    NavMenu.Items(5).ChildItems.Item(0).NavigateUrl = "logout.aspx"
  58.             'End If
  59.         End If
  60.         'If TypeOf Page Is AspNetMaker7_tfpssnet Then
  61.         '    ParentPage = CType(Page, AspNetMaker7_tfpssnet)
  62.         '    RootMenu = New AspNetMaker7_tfpssnet.cMenu("RootMenu", True)
  63.         '    RootMenu.ParentPage = ParentPage
  64.  
  65.         '    ' Generate menu items
  66.         '    RootMenu.AddMenuItem(11, "Schedule Master", "tblSchedulelist.aspx", -1, "", (ParentPage.AllowList("tblSchedule")))
  67.         '    RootMenu.AddMenuItem(2, "Employee Info", "tblEmployeeslist.aspx", -1, "", (ParentPage.AllowList("tblEmployees")))
  68.         '    RootMenu.AddMenuItem(18, "Utilities", "", -1, "", True)
  69.         '    RootMenu.AddMenuItem(1, "Departments", "tblDepartmentslist.aspx", 18, "", (ParentPage.AllowList("tblDepartments")))
  70.         '    RootMenu.AddMenuItem(3, "Employee Status", "tblEmployeeStatuslist.aspx", 18, "", (ParentPage.AllowList("tblEmployeeStatus")))
  71.         '    RootMenu.AddMenuItem(4, "Events", "tblEventslist.aspx", 18, "", (ParentPage.AllowList("tblEvents")))
  72.         '    RootMenu.AddMenuItem(5, "Locations", "tblLocationslist.aspx", 18, "", (ParentPage.AllowList("tblLocations")))
  73.         '    RootMenu.AddMenuItem(8, "Message", "tblMessagelist.aspx", 18, "", (ParentPage.AllowList("tblMessage")))
  74.         '    RootMenu.AddMenuItem(9, "Parts", "tblPartslist.aspx", 18, "", (ParentPage.AllowList("tblParts")))
  75.         '    RootMenu.AddMenuItem(10, "Positions", "tblPositionslist.aspx", 18, "", (ParentPage.AllowList("tblPositions")))
  76.         '    RootMenu.AddMenuItem(12, "Schedule Status", "tblScheduleStatuslist.aspx", 18, "", (ParentPage.AllowList("tblScheduleStatus")))
  77.         '    RootMenu.AddMenuItem(13, "Types", "tblTypeslist.aspx", 18, "", (ParentPage.AllowList("tblTypes")))
  78.         '    RootMenu.AddMenuItem(17, "Lighting Department", "", -1, "", True)
  79.         '    RootMenu.AddMenuItem(6, "Lighting Problem Reporting", "tblLPRlist.aspx", 17, "", (ParentPage.AllowList("tblLPR")))
  80.         '    RootMenu.AddMenuItem(7, "LPR Status", "tblLPRStatuslist.aspx", 17, "", (ParentPage.AllowList("tblLPRStatus")))
  81.         '    RootMenu.AddMenuItem(15, "LPR Fixture Location", "tblLPRFixtureLocationlist.aspx", 17, "", (ParentPage.AllowList("tblLPRFixtureLocation")))
  82.         '    RootMenu.AddMenuItem(16, "LPR Fixture Type", "tblLPRFixtureTypelist.aspx", 17, "", (ParentPage.AllowList("tblLPRFixtureType")))
  83.         '    RootMenu.AddMenuItem(14, "Fixture Service Master", "tblFixtureMasterlist.aspx", 17, "", (ParentPage.AllowList("tblFixtureMaster")))
  84.         '    RootMenu.AddMenuItem(19, "Test Menu Group", "", -1, "", True)
  85.         '    RootMenu.AddMenuItem(20, "Test Menu Subgroup", "", 19, "", True)
  86.         '    RootMenu.AddMenuItem(-1, "Logout", "logout.aspx", -1, "", AspNetMaker7_tfpssnet.IsLoggedIn())
  87.         '    RootMenu.AddMenuItem(-1, "Login", "login.aspx", -1, "", Not AspNetMaker7_tfpssnet.IsLoggedIn() AndAlso Not Request.ServerVariables("URL").EndsWith("/login.aspx"))
  88.         'End If
  89.     End Sub
  90. End Class
  91.