jj fix AddonPath

This commit is contained in:
JenneJ
2016-08-17 14:17:06 +02:00
parent f0ce937585
commit 7288522ebd

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)