Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
Imports DigitalData.Services.EDMIService.IDB

Namespace FileStorage.SetAttributeValue
    Public Class SetAttributeValueMethod
        Inherits BaseMethod

        Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
            MyBase.New(pLogConfig, pDatabase)
        End Sub

        Public Function Run(pData As SetAttributeValueRequest) As SetAttributeValueResponse
            Try
                If Helpers.TestObjectIdExists(pData.ObjectId) = False Then
                    LogAndThrow("ObjectId does not exist!")
                End If

                'TODO: Finish


                Return New SetAttributeValueResponse(pData.ObjectId)
            Catch ex As Exception
                Logger.Warn("Error occurred while setting attribute value!")

                Return New SetAttributeValueResponse(ex)
            End Try
        End Function
    End Class

End Namespace