' Name                         NavMenu.ascx.vb
' Version                      1.07
' Modified                     09/04/2008 17:08:41
' Compiler Version             5.37.001

Imports Rocktime
Imports Rocktime.Core
Imports Rocktime.Base
Imports Rocktime.Base.Security
Imports Rocktime.RadHelperClass
Imports Telerik.WebControls

Partial Class Control_NavMenu_WebUserControl
	Inherits UserControlExClass

#Region "Page Events"

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

		Security.CurrentUser.PageAccess(True, "Rocktime, Admin", 1)

		PreIsPostBackAction()
		If IsPostBack Then
			PostBackAction()
		Else
			NonPostBackAction()
		End If
		PostIsPostBackAction()

	End Sub

#End Region

#Region "Misc"

	Protected Sub PreIsPostBackAction()

	End Sub

	Protected Sub PostBackAction()

	End Sub

	Protected Sub NonPostBackAction()

		MenuSetup()

	End Sub

	Protected Sub PostIsPostBackAction()

	End Sub

#End Region

#Region "Menu Setup"

	Protected Sub MenuSetup()

		Dim FoundRootItem As RadMenuItem = Nothing

		If Not Security.CurrentUser.IsGroup("Admin") Then
			FoundRootItem = MenuItemLocate(radmainmenu, "Security")
			MenuItemVisiblity(MenuItemLocate(FoundRootItem, "Add"), False)
			MenuItemVisiblity(MenuItemLocate(FoundRootItem, "List"), False)
			MenuItemVisiblity(MenuItemLocate(FoundRootItem, "Search"), False)
			MenuItemVisiblity(MenuItemLocate(FoundRootItem, ""), False)
		End If

	End Sub

#End Region

End Class