MS V2.7.4.1 Betatest

Global_Indexer/ClassInit.vb

@@ -124,6 +124,13 @@ Public Class ClassInit
                 GI_withWindream = DT.Rows(0).Item("BIT1")
                 'vWLaufwerk = DT.Rows(0).Item("STRING1")
             End If
+            oSql = "SELECT * FROM TBDD_CATALOG"
+            DT = DATABASE_ECM.GetDatatable(oSql)
+            For Each oROW As DataRow In DT.Rows
+                If oROW.Item("CAT_TITLE") = "WM_DB_SERVER" Then
+                    WM_DB_SERVER = oROW.Item("CAT_STRING")
+                End If
+            Next
             oSql = "SELECT * FROM TBDD_BASECONFIG"
             DT = DATABASE_ECM.GetDatatable(oSql)
             If DT.Rows.Count = 1 Then