31 lines
975 B
VB.net
31 lines
975 B
VB.net
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 |