Imports System.Runtime.Serialization
Imports DigitalData.Services.EDMIService.Rights
Imports DigitalData.Modules.Language

Namespace Messages
    Public Class AccessRightResult
        Inherits BaseResult

        Public Property Right As AccessRight = AccessRight.VIEW_ONLY

        Public Sub New(AccessRight As AccessRight)
            MyBase.New()
            Right = AccessRight
        End Sub

        Public Sub New(Exception As Exception)
            MyBase.New()
            OK = False
            ErrorMessage = Exception.Message
        End Sub
    End Class

End Namespace