MS_1705

app/DD-Record-Organiser/ModuleMySettings.vb

@@ -29,6 +29,7 @@ Module ModuleMySettings
     Public USERS_LOGGED_IN = 0
     Public USER_GUID = 0
     Public USER_LANGUAGE As String = "de-DE"
+    Public USER_WAN As Boolean = False
     Public USER_CLIENTS_COMMA_SEPERATED As String
 
     Public sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
@@ -286,6 +287,10 @@ Module ModuleMySettings
             newRow11("ConfigName") = "Task_Popup_minutes"
             newRow11("Value") = "2"
             table.Rows.Add(newRow11)
+            Dim newRow12 As DataRow = table.NewRow()
+            newRow12("ConfigName") = "WAN_ENVIRONMENT"
+            newRow12("Value") = "False"
+            table.Rows.Add(newRow12)
 
             table.AcceptChanges()
             ClassLogger.Add(">> CreateConfigTable su...", False)