Fix debug flag for logger

.gitignore

@@ -154,5 +154,5 @@ $RECYCLE.BIN/
 
 # Mac desktop service store files
 .DS_Store
-/.vs/Global_Indexer/v15/Server/sqlite3
+
-/.vs/Global_Indexer/v16/Server/sqlite3
+.vs

.vs/ProjectSettings.json

@@ -1,3 +0,0 @@
-{
-  "CurrentProjectSetting": null
-}

.vs/VSWorkspaceState.json

@@ -1,7 +0,0 @@
-{
-  "ExpandedNodes": [
-    ""
-  ],
-  "SelectedNode": "\\Global_Indexer.sln",
-  "PreviewInSolutionExplorer": false
-}

Global_Indexer/ClassInit.vb

@@ -24,7 +24,7 @@ Public Class ClassInit
 
     Public Sub InitConfig()
         CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
-        LOGCONFIG.Debug = Not CONFIG.Config.LogDEBUG
+        LOGCONFIG.Debug = CONFIG.Config.LogDEBUG
         LOGGER.Info("Debug log set to: [{0}]", LOGCONFIG.Debug)
 
         MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)

Global_Indexer/My Project/AssemblyInfo.vb

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("File Flow")>
 <Assembly: AssemblyCopyright("Copyright © 2022")>
-<Assembly: AssemblyTrademark("2.6.2.0")>
+<Assembly: AssemblyTrademark("2.6.5.1")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.6.5.0")>
+<Assembly: AssemblyVersion("2.6.5.1")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/frmAdministration.vb

@@ -527,12 +527,13 @@ Public Class frmAdministration
 
             Dim oDatatable = DATABASE_ECM.GetDatatable($"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {oDocTypeGuid} AND ACTIVE = 1")
             Dim oPlaceholders = oDatatable.AsEnumerable().
-                ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("WD_INDEX"))
+                ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("NAME"))
 
             Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, DATABASE_ECM) With {
                 .SQLCommand = oSQLCommand,
                 .SQLConnection = oConnection,
-                .PlaceholdersManual = oPlaceholders
+                .PlaceholdersManual = oPlaceholders,
+                .PlaceholdersManualPrefix = "CTRL"
             }
 
             Dim oResult = oForm2.ShowDialog()