Public Class MenuItem
    Private _id As Integer
    Private _description As String
    Private _reqAlertMessage As Boolean
    Private _href As String
    Private _selected As Boolean
    Private _isGroup As Boolean
    Private _errorMark As Boolean
    Private _subOptions() As MenuItem
    'added by raul callupe
    Private _isHome As Boolean = False
    'end added

    Sub New(ByVal Id As Integer, ByVal Description As String, ByVal Href As String, ByVal IsGroup As Boolean)
        _id = Id
        _description = Description
        _href = Href
        _isGroup = IsGroup
        _reqAlertMessage = False
    End Sub

    Sub New(ByVal Id As Integer, ByVal Description As String, ByVal Href As String, ByVal IsGroup As Boolean, ByVal ReqAlertMessage As Boolean)
        _id = Id
        _description = Description
        _href = Href
        _isGroup = IsGroup
        _reqAlertMessage = ReqAlertMessage
    End Sub

    'added by raul callupe
    Public Property IsHome() As Boolean
        Get
            Return _isHome
        End Get
        Set(ByVal Value As Boolean)
            _isHome = Value
        End Set
    End Property
    'end added

    Public Property IsGroup() As Boolean
        Get
            Return _isGroup
        End Get
        Set(ByVal Value As Boolean)
            IsGroup = Value
        End Set
    End Property

    Public Property Description() As String
        Get
            Return _description
        End Get
        Set(ByVal Value As String)
            _description = Value
        End Set
    End Property

    Public Property ReqAlertMessage() As Boolean
        Get
            Return _reqAlertMessage
        End Get
        Set(ByVal Value As Boolean)
            _reqAlertMessage = Value
        End Set
    End Property
    Public Property Href() As String
        Get
            Return _href
        End Get
        Set(ByVal Value As String)
            _href = Value
        End Set
    End Property

    Public Property Selected() As Boolean
        Get
            Return _selected
        End Get
        Set(ByVal Value As Boolean)
            _selected = Value
        End Set
    End Property

    Public Property ErrorMark() As Boolean
        Get
            Return _errorMark
        End Get
        Set(ByVal Value As Boolean)
            _errorMark = Value
        End Set
    End Property

    Public Property SubOptions() As MenuItem()
        Get
            Return _subOptions
        End Get
        Set(ByVal Value As MenuItem())
            _subOptions = Value
        End Set
    End Property

    Public Property Id() As Integer
        Get
            Return _id
        End Get
        Set(ByVal Value As Integer)
            _id = Value
        End Set
    End Property

End Class