EDMIService: clean up

Service.EDMIService/GlobalState.vb

@@ -2,9 +2,10 @@
 Imports DigitalData.Modules.Logging
 
 Public Class GlobalState
-    Private _LogConfig As LogConfig
-    Private _Logger As Logger
-    Private _MSSQL As MSSQLServer
+    Private ReadOnly _LogConfig As LogConfig
+    Private ReadOnly _Logger As Logger
+    Private ReadOnly _MSSQL As MSSQLServer
+
     Public Property ObjectStores As New List(Of ObjectStore)
 
     Public Sub New(LogConfig As LogConfig, MSSQL_IDB As MSSQLServer)
@@ -21,6 +22,8 @@ Public Class GlobalState
 
             ObjectStores.Clear()
 
+            _Logger.Debug("Found {0} Object Stores", oDatatable.Rows)
+
             For Each oRow As DataRow In oDatatable.Rows
                 Dim oStore As New ObjectStore() With {
                     .Id = oRow.Item("OST_ID"),
@@ -38,7 +41,7 @@ Public Class GlobalState
     End Sub
 
     Class ObjectStore
-        Public Id As Int64
+        Public Id As Long
         Public Title As String
         Public IsArchive As Boolean
         Public Path As String