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.
43 lines
1.2 KiB
43 lines
1.2 KiB
Imports Raven.Imports
|
|
|
|
Public Class Committee
|
|
|
|
<Newtonsoft.Json.JsonIgnore()>
|
|
Public Property Key_Representation As String
|
|
|
|
<Newtonsoft.Json.JsonIgnore()>
|
|
Public Property ID As Integer
|
|
|
|
Public Property Key As String
|
|
Public Property [Name] As String
|
|
Public Property Caption As String
|
|
Public Property Url As String
|
|
|
|
Public Sub New()
|
|
End Sub
|
|
|
|
Public Sub New(ex As XElement, keyRepresentation As String)
|
|
Me.New()
|
|
With Me
|
|
.Key_Representation = keyRepresentation
|
|
.ID = CType(ex.Attribute("id").Value, Integer)
|
|
.Key = ex.Attribute("key").Value
|
|
.[Name] = ex.Attribute("name").Value
|
|
.Caption = ex.Attribute("caption").Value
|
|
.Url = ex.Attribute("url").Value
|
|
End With
|
|
End Sub
|
|
|
|
Public Function GetXElement() As XElement
|
|
|
|
Dim ex As New XElement("item")
|
|
ex.SetAttributeValue("id", Me.ID.ToString)
|
|
ex.SetAttributeValue("key", Me.Key.ToString)
|
|
ex.SetAttributeValue("name", Me.[Name].ToString)
|
|
ex.SetAttributeValue("caption", Me.Caption.ToString)
|
|
ex.SetAttributeValue("url", Me.Url.ToString)
|
|
|
|
Return ex
|
|
|
|
End Function
|
|
End Class
|
|
|