EDMI: Client Server Changes to prepare for initial Release

Service.EDMIService/Filestorage/SetAttributeValue/SetAttributeValueMethod.vb

@@ -1,13 +1,20 @@
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Database
 Imports DigitalData.Services.EDMIService.IDB
+Imports System.Data.SqlClient
 
 Namespace FileStorage.SetAttributeValue
     Public Class SetAttributeValueMethod
         Inherits BaseMethod
 
+        Private Connection As SqlConnection
+        Private Transaction As SqlTransaction
+
         Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
             MyBase.New(pLogConfig, pDatabase)
+
+            Connection = Database.GetConnection()
+            Transaction = Connection.BeginTransaction()
         End Sub
 
         Public Function Run(pData As SetAttributeValueRequest) As SetAttributeValueResponse
@@ -16,13 +23,16 @@ Namespace FileStorage.SetAttributeValue
                     LogAndThrow("ObjectId does not exist!")
                 End If
 
-                'TODO: Finish
+                Dim oResult = Helpers.SetAttributeValue(Connection, Transaction,
+                                                        pData.ObjectId, pData.AttributeName, pData.AttributeValue, pData.Language, pData.Who)
 
+                If oResult = False Then
+                    LogAndThrow("Attribute value could not be set!")
+                End If
 
                 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