From 3b16e1589621ff742038ca1f8b0db33196b26531 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 13 Oct 2023 11:21:13 +0200
Subject: [PATCH 1/2] Remove config migration

---
 app/TaskFlow/ClassInit.vb | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/app/TaskFlow/ClassInit.vb b/app/TaskFlow/ClassInit.vb
index cb24f80..c41b996 100644
--- a/app/TaskFlow/ClassInit.vb
+++ b/app/TaskFlow/ClassInit.vb
@@ -12,11 +12,7 @@ Public Class ClassInit
 
     <STAThread()>
     Public Sub InitLogger()
-        Dim oConfigPrefix As String = My.Settings.UserConfig_Prefix
         Dim oLocalUserAppDataPath As String = Application.LocalUserAppDataPath
-        If oConfigPrefix.Length > 0 Then
-            oLocalUserAppDataPath = IO.Path.Combine(oLocalUserAppDataPath, oConfigPrefix)
-        End If
         LOGCONFIG = New LogConfig(LogConfig.PathType.CustomPath,
                                        oLocalUserAppDataPath & "\Log",
                                         Nothing,
@@ -46,23 +42,8 @@ Public Class ClassInit
     Public Sub InitUserConfig()
         Try
             Dim oUserAppDataPath As String = Application.UserAppDataPath
-            Dim oLegacyAppDataPath As String = Application.UserAppDataPath
             Dim oCommonAppDataPath = Application.CommonAppDataPath
             Dim oStartupPath = Application.StartupPath
-            Dim oConfigPrefix As String = My.Settings.UserConfig_Prefix
-
-            ' If prefix is configured, use it to create a subfolder in app data and migrate existing data
-            If oConfigPrefix.Length > 0 Then
-                oUserAppDataPath = IO.Path.Combine(Application.UserAppDataPath, oConfigPrefix)
-
-                Dim oConfigUtils As New ConfigUtils(LOGCONFIG)
-
-                If oConfigUtils.TestMigrationNeeded(oUserAppDataPath) Then
-                    LOGCONFIG.Debug = True
-                    oConfigUtils.MigrateConfig(oLegacyAppDataPath, oUserAppDataPath)
-                    LOGCONFIG.Debug = False
-                End If
-            End If
 
             ' If AppConfig from Startup Path should be forced, rewrite the common app data path
             If My.Settings.UseAppConfigConString = True Then

From 8324bbeb16cef2151ef82ae68920dc8178e01370 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 13 Oct 2023 11:22:51 +0200
Subject: [PATCH 2/2] Version 2.4.6.4

---
 app/TaskFlow/My Project/AssemblyInfo.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/app/TaskFlow/My Project/AssemblyInfo.vb b/app/TaskFlow/My Project/AssemblyInfo.vb
index 5d758e6..1ef11fb 100644
--- a/app/TaskFlow/My Project/AssemblyInfo.vb	
+++ b/app/TaskFlow/My Project/AssemblyInfo.vb	
@@ -14,7 +14,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("TaskFlow")>
 <Assembly: AssemblyCopyright("Copyright © Digital Data 2023")>
-<Assembly: AssemblyTrademark("2.4.6.3")>
+<Assembly: AssemblyTrademark("2.4.6.4")>
 
 <Assembly: ComVisible(False)>
 
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.6.3")>
+<Assembly: AssemblyVersion("2.4.6.4")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 <Assembly: NeutralResourcesLanguage("")>