From 1768bf2a98b7aa255d91efbb3056df9c24bee14d Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 13 Feb 2020 16:32:42 +0100
Subject: [PATCH] fix profile copy

---
 Global_Indexer/frmAdministration.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb
index a23214d..bd792ba 100644
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@@ -1127,7 +1127,7 @@ Public Class frmAdministration
 
         If result = MsgBoxResult.Yes Then
             Try
-                Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1"
+                Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", (select GUID from TBDD_MODULES where UPPER(SHORT_NAME) = 'GLOBIX')"
                 If ClassDatabase.Execute_non_Query(copy, True) Then
 
                     If USER_LANGUAGE = "de-DE" Then