EDMIService: First version of GetAccessRight

Service.EDMIService/Results/AccessRightResult.vb

@@ -0,0 +1,23 @@
+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