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