diff --git a/Service.EDMIService/EDMIService.vb b/Service.EDMIService/EDMIService.vb index f8bc5b59..f90123ff 100644 --- a/Service.EDMIService/EDMIService.vb +++ b/Service.EDMIService/EDMIService.vb @@ -74,7 +74,7 @@ Public Class EDMIService End Function #End Region - Public Function NewFile(Data As NewFile.VersionFileRequest) As NewFile.VersionFileResponse Implements IEDMIService.NewFile + Public Function NewFile(Data As NewFile.NewFileRequest) As NewFile.NewFileResponse Implements IEDMIService.NewFile _Logger.Debug("Start of Method [NewFile]") Dim oNewFile As New NewFile.NewFileMethod(LogConfig, MSSQL_IDB, MSSQL_ECM, GlobalState) Return oNewFile.Run(Data) diff --git a/Service.EDMIService/IEDMIService.vb b/Service.EDMIService/IEDMIService.vb index e75c93b6..98b65762 100644 --- a/Service.EDMIService/IEDMIService.vb +++ b/Service.EDMIService/IEDMIService.vb @@ -81,7 +81,7 @@ Interface IEDMIService #Region "Document (New)" - Function NewFile(Data As NewFile.VersionFileRequest) As NewFile.VersionFileResponse + Function NewFile(Data As NewFile.NewFileRequest) As NewFile.NewFileResponse Function VersionFile(Data As VersionFile.VersionFileRequest) As VersionFile.VersionFileResponse diff --git a/Service.EDMIService/Methods/IDB/NewFile/NewFileMethod.vb b/Service.EDMIService/Methods/IDB/NewFile/NewFileMethod.vb index dca37679..9f07e7cc 100644 --- a/Service.EDMIService/Methods/IDB/NewFile/NewFileMethod.vb +++ b/Service.EDMIService/Methods/IDB/NewFile/NewFileMethod.vb @@ -2,8 +2,6 @@ Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database.MSSQLServer.TransactionMode Imports DigitalData.Modules.Logging -Imports DigitalData.Services.EDMIService.Methods -Imports DigitalData.Services.EDMIService.GlobalState Namespace Methods.IDB.NewFile Public Class NewFileMethod @@ -19,12 +17,12 @@ Namespace Methods.IDB.NewFile Transaction = Connection.BeginTransaction() End Sub - Public Function Run(pData As NewFile.VersionFileRequest) As Methods.IDB.NewFile.VersionFileResponse + Public Function Run(pData As NewFile.NewFileRequest) As NewFile.NewFileResponse Dim oFilePath As String = Nothing Dim oExistingObjectId = TestFileChecksumExists(pData.File.FileChecksum) If oExistingObjectId > 0 Then - Return New NewFile.VersionFileResponse(oExistingObjectId) + Return New NewFile.NewFileResponse(oExistingObjectId) End If Try @@ -36,9 +34,7 @@ Namespace Methods.IDB.NewFile ' Find ObjectStore by Title Logger.Debug("Checking for DataStore [{0}].", pData.StoreName) - Dim oStore = GlobalState.ObjectStores. - Where(Function(store) store.Title.Equals(pData.StoreName, StringComparison.OrdinalIgnoreCase)). - SingleOrDefault() + Dim oStore = GlobalState.ObjectStores.Where(Function(store) store.Title.Equals(pData.StoreName, StringComparison.OrdinalIgnoreCase)).SingleOrDefault() If oStore Is Nothing Then LogAndThrow($"DataStore [{pData.StoreName}] does not exist. Exiting.") @@ -157,7 +153,7 @@ Namespace Methods.IDB.NewFile ' Finally, commit the transaction Transaction?.Commit() - Return New NewFile.VersionFileResponse(oObjectId) + Return New NewFile.NewFileResponse(oObjectId) Catch ex As Exception Logger.Warn("Error occurred while creating file!") Logger.Error(ex) @@ -175,7 +171,7 @@ Namespace Methods.IDB.NewFile Logger.Info("Rolling back transaction.") Transaction?.Rollback() - Return New NewFile.VersionFileResponse(ex) + Return New NewFile.NewFileResponse(ex) End Try End Function