You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
97 lines
4.2 KiB
97 lines
4.2 KiB
Imports System.IO
|
|
Imports System.IO.Compression
|
|
Imports System.Web.Configuration
|
|
Public Class Menu1
|
|
Inherits System.Web.UI.UserControl
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
If Page.IsPostBack Then Exit Sub
|
|
'Session.Item("LogedIn") = "True"
|
|
'Session.Item("Firmanr") = 19
|
|
'Session.Item("Menuhandler") = 2
|
|
'Session.Item("Admin") = "True"
|
|
'Session.Item("UserID") = 12
|
|
If Session.Item("LogedIn") Is Nothing Then
|
|
Me.RadMenu1.Items.Clear()
|
|
get_menu(1)
|
|
'Exit Sub
|
|
End If
|
|
If Session.Item("LogedIn") = False Then
|
|
Me.RadMenu1.Items.Clear()
|
|
get_menu(1)
|
|
'Exit Sub
|
|
End If
|
|
Me.RadMenu1.Items.Clear()
|
|
get_menu(Session.Item("Menuhandler"))
|
|
|
|
Dim dh As New clsDatahandling
|
|
Dim ds As New DataSet
|
|
'Me.Label1.Text = Request.Url.LocalPath
|
|
ds = dh.Get_Tabledata("select * from webhelp_mapper where sourceurl='" + Request.Url.LocalPath + "'", False, True)
|
|
If ds.Tables(0).Rows.Count < 1 Then
|
|
Me.RadMenu2.Items(0).NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + "index.html"
|
|
' Me.HyperLink1.NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + "index.html"
|
|
Else
|
|
' Me.HyperLink1.NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + ds.Tables(0).Rows(0).Item("desturl").ToString
|
|
Me.RadMenu2.Items(0).NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + ds.Tables(0).Rows(0).Item("desturl").ToString
|
|
End If
|
|
|
|
' End If
|
|
If WebConfigurationManager.AppSettings("ShowHelpLink") = "True" Then Me.RadMenu2.Items(0).Visible = True Else Me.RadMenu2.Items(0).Visible = False
|
|
|
|
' Dim mi As New System.Web.UI.WebControls.MenuItem
|
|
' mi.Text = "Hallo"
|
|
' Me.NavigationMenu.Items.Add(mi)
|
|
End Sub
|
|
|
|
Sub get_menu(ByVal menutype As Integer)
|
|
Dim dh As New clsDatahandling
|
|
Dim Menuentries As New DataTable
|
|
Menuentries = dh.Get_Menu(menutype)
|
|
Dim found As Boolean = False
|
|
For Each dr As DataRow In Menuentries.Rows
|
|
Dim mi As New Telerik.Web.UI.RadMenuItem
|
|
'Dim mi As New System.Web.UI.WebControls.MenuItem
|
|
'If menutype = 3 And dh.Get_Option(11) = "1/2" And dr.Item(1).ToString = "Schüler" Then
|
|
'Dim a As Integer = 1
|
|
'Else
|
|
mi.Text = dr.Item(1).ToString
|
|
mi.Value = dr.Item(0).ToString
|
|
mi.ToolTip = dr.Item(3).ToString
|
|
mi.NavigateUrl = dr.Item(4).ToString
|
|
If dr.Item("Parentnr") = 0 Then
|
|
Me.RadMenu1.Items.Add(mi)
|
|
Else
|
|
found = False
|
|
For Each mitem As Telerik.Web.UI.RadMenuItem In Me.RadMenu1.Items
|
|
'For Each mitem As System.Web.UI.WebControls.MenuItem In Me.RadMenu1.Items
|
|
If mitem.Value.ToString = dr.Item("Parentnr").ToString Then
|
|
mitem.Items.Add(mi)
|
|
'mitem.ChildItems.Add(mi)
|
|
found = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If found = False Then
|
|
'For Each mitem As System.Web.UI.WebControls.MenuItem In Me.RadMenu1.Items
|
|
For Each mitem As Telerik.Web.UI.RadMenuItem In Me.RadMenu1.Items
|
|
For Each mitem2 As Telerik.Web.UI.RadMenuItem In mitem.Items
|
|
If mitem2.Value.ToString = dr.Item("Parentnr").ToString Then
|
|
mitem2.Items.Add(mi)
|
|
found = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
Next
|
|
End If
|
|
End If
|
|
'End If
|
|
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Protected Sub RadMenu2_ItemClick(sender As Object, e As Telerik.Web.UI.RadMenuEventArgs) Handles RadMenu2.ItemClick
|
|
|
|
End Sub
|
|
End Class |