EDMIService: Automatic indexing, more consolidation of globix logic

Service.EDMIService/Methods/NewFile/NewFileMethod.vb

@@ -28,7 +28,7 @@ Public Class NewFileMethod
 
         Try
 
-            Dim oObjectId = NewObjectId(pData.KindType, pData.BusinessEntity, pData.Who)
+            Dim oObjectId = NewObjectId(pData.KindType, pData.BusinessEntity, pData.User.UserName)
             If oObjectId = 0 Then
                 LogAndThrow("Could not create new ObjectId!")
             End If
@@ -107,7 +107,16 @@ Public Class NewFileMethod
             Logger.Info("Creating IDB FileObject for ObjectId [{0}].", oObjectId)
 
             ' Insert into DB
-            Dim oSQL As String = $"EXEC PRIDB_NEW_IDBFO '{oFinalPath}', '{oFileObjectName}', '{oFileObjectExtension}',{oFileObjectSize},'{pData.File.FileChecksum}' ,'{pData.Who}','{oObjectId}',{oStore.Id}"
+            Dim oSQL As String = $"EXEC PRIDB_NEW_IDBFO 
+                '{oFinalPath}', 
+                '{oFileObjectName}', 
+                '{oFileObjectExtension}',
+                {oFileObjectSize},
+                '{pData.File.FileChecksum}' ,
+                '{pData.User.UserName}',
+                '{oObjectId}',
+                {oStore.Id}"
+
             Dim oResult As Boolean = Database.ExecuteNonQueryWithConnectionObject(oSQL, Connection, ExternalTransaction, Transaction)
 
             If oResult = False Then
@@ -131,7 +140,7 @@ Public Class NewFileMethod
                         Continue For
                     End If
 
-                    Dim oSuccess = Helpers.SetAttributeValue(Connection, Transaction, oObjectId, oAttribute.Key, oAttribute.Value, "de-DE", pData.Who)
+                    Dim oSuccess = Helpers.SetAttributeValue(Connection, Transaction, oObjectId, oAttribute.Key, oAttribute.Value, pData.User.Language, pData.User.UserName)
                     If oSuccess Then
                         Logger.Debug("Default Attribute [{0}] written with value [{1}]", oAttribute.Key, oAttribute.Value)
                     Else

Service.EDMIService/Methods/NewFile/NewFileRequest.vb

@@ -1,4 +1,5 @@
 Imports System.Runtime.Serialization
+Imports DigitalData.Modules.ZooFlow.State
 
 Namespace Methods.NewFile
     <Serializable>
@@ -26,17 +27,11 @@ Namespace Methods.NewFile
         Public Property KindType As String
 
         ''' <summary>
-        ''' The name of the user importing the file, ex. JenneJ
-        ''' </summary>
-        <DataMember>
-        Public Property Who As String
-
-        ''' <summary>
-        ''' The language of the user
+        ''' User Importing the file
         ''' </summary>
         ''' <returns></returns>
         <DataMember>
-        Public Property Language As String
+        Public Property User As UserState
     End Class
 
 End Namespace