Common: ObjectPropertyDialog

Service.EDMIService/IDB/Helpers.vb

@@ -198,6 +198,7 @@ Namespace IDB
         'End Function
 
         Public Function SetAttributeValue(pConnection As SqlConnection, pTransaction As SqlTransaction, pObjectId As Long, pAttributeName As String, pValue As String, pLanguage As String, pWho As String) As Boolean
+            Logger.Info("Setting value of Attribute [{0}]", pAttributeName)
             Dim oSql = $"
                 DECLARE @NEW_OBJ_MD_ID BIGINT
                 EXEC PRIDB_NEW_OBJ_DATA {pObjectId}, '{pAttributeName}', '{pWho}', '{pValue}', '{pLanguage}', 0, @OMD_ID = @NEW_OBJ_MD_ID OUTPUT"