This commit is contained in:
SchreiberM
2016-08-17 14:18:10 +02:00

View File

@@ -60,10 +60,14 @@ Public Class ClassInit
Dim AddonDir As New DirectoryInfo(path) Dim AddonDir As New DirectoryInfo(path)
If (AddonDir.Exists) Then If (AddonDir.Exists) Then
If AddonDir.Name = "Addons" Then
AddonPath = path AddonPath = path
Else Else
AddonPath = Dev_AddonPath AddonPath = Dev_AddonPath
End If End If
Else
AddonPath = Dev_AddonPath
End If
End If End If
Sql = String.Format("UPDATE TBPMO_KONFIGURATION SET PATH_ADDONS = '{0}' WHERE GUID = 1", AddonPath) Sql = String.Format("UPDATE TBPMO_KONFIGURATION SET PATH_ADDONS = '{0}' WHERE GUID = 1", AddonPath)