Zooflow: WIP

Service.EDMIService/Methods/GetAttributeValue/GetAttributeValueMethod.vb

@@ -0,0 +1,29 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+
+Namespace Methods.GetAttributeValue
+    Public Class GetAttributeValueMethod
+        Inherits BaseMethod
+
+        Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
+            MyBase.New(pLogConfig, pDatabase)
+        End Sub
+
+        Public Function Run(pData As GetAttributeValueRequest) As GetAttributeValueResponse
+            Try
+                If Helpers.TestObjectIdExists(pData.ObjectId) = False Then
+                    LogAndThrow("ObjectId does not exist!")
+                End If
+
+                Dim oValue As Object
+                ' TODO: Implement GetAttributeValue
+
+                Return New GetAttributeValueResponse(pData.ObjectId, oValue)
+            Catch ex As Exception
+                Logger.Warn("Error occurred while getting attribute value!")
+                Return New GetAttributeValueResponse(ex)
+            End Try
+        End Function
+    End Class
+
+End Namespace