Common: ObjectPropertyDialog

Service.EDMIService/Methods/IDB/SetAttributeValue/SetAttributeValueMethod.vb

@@ -23,6 +23,8 @@ Namespace Methods.IDB.SetAttributeValue
                     LogAndThrow("ObjectId does not exist!")
                 End If
 
+                Logger.Debug("Setting value of Attribute [{0}]", pData.AttributeName)
+
                 Dim oResult = Helpers.SetAttributeValue(Connection, Transaction,
                                                         pData.ObjectId, pData.AttributeName, pData.AttributeValue, pData.Language, pData.Who)
 
@@ -30,9 +32,19 @@ Namespace Methods.IDB.SetAttributeValue
                     LogAndThrow("Attribute value could not be set!")
                 End If
 
+                Logger.Debug("Attribute value set!")
+
+                ' Finally, commit the transaction
+                Transaction?.Commit()
+
                 Return New SetAttributeValueResponse(pData.ObjectId)
             Catch ex As Exception
                 Logger.Warn("Error occurred while setting attribute value!")
+                Logger.Error(ex)
+
+                Logger.Info("Rolling back transaction.")
+                Transaction?.Rollback()
+
                 Return New SetAttributeValueResponse(ex)
             End Try
         End Function