EDMI: changes in newfile and updatefile method

Modules.EDMIAPI/Helpers.vb

@@ -27,15 +27,16 @@ Public Class Helpers
                     Dim oFileModifiedAt As Date = oFileInfo?.LastWriteTime
                     Dim oFileHash As String = FileEx.GetChecksum(oFileInfo.FullName)
 
-                    Return New FileProperties With {
+                Return New FileProperties With {
                         .FileName = oFileInfo.Name,
                         .FileCreatedAt = oFileCreatedAt,
                         .FileChangedAt = oFileModifiedAt,
                         .FileContents = oContents,
                         .FileImportedAt = pDateImportedAt,
-                        .FileChecksum = oFileHash
+                        .FileChecksum = oFileHash,
+                        .FileInfoRaw = oFileInfo
                     }
-                End Using
+            End Using
             End Using
         End Function
     End Class

Modules.EDMIAPI/Modules/IDB/SetObjectState.vb

@@ -14,7 +14,7 @@ Namespace Modules.IDB
         Public Async Function RunAsync(pObjectId As String, pState As String, Optional pOptions As SetObjectStateOptions = Nothing) As Task(Of Boolean)
             Try
 
-                Dim oSql As String = $"EXEC PRIDB_OBJECT_SET_STATE {pObjectId}, '{pState}', '{pOptions.Username}', '{pOptions.Language}'"
+                Dim oSql As String = $"EXEC PRIDB_OBJECT_SET_STATE {pObjectId}, '{pState}', '{pOptions.Username}'"
                 Dim oResult = Await Channel.ExecuteNonQuery_MSSQL_IDBAsync(oSql)
 
                 If oResult.OK Then