Public Class ClassParamRefresh
    Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
        FORCE_LAYOUT_OVERVIEW = False
        SHOW_CHARTS = True
        USER_DEBUG_LOG = False


        If DT_CHECKUSER.Rows.Count = 1 Then
            USERCOUNT_LOGGED_IN = DT_CHECKUSER.Rows(0).Item("USERCOUNT_LOGGED_IN")
            Try
                WORKING_MODE = DT_CHECKUSER.Rows(0).Item("WORKING_MODE")
            Catch ex As Exception
                WORKING_MODE = ""
            End Try


            Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")

            ' Use For Each loop over words and display them.
            Dim oMode As String
            For Each oMode In oSplitWorkMode
                LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
                If oMode = "PM.FORCE_LAYOUT_OVERVIEW" Then
                    FORCE_LAYOUT_OVERVIEW = True
                ElseIf oMode = "PM.NO_MASS_VALIDATOR" Then
                    SHOW_MASS_VALIDATOR = False
                ElseIf oMode = "PM.NO_CHARTS" Then
                    SHOW_CHARTS = False
                ElseIf oMode = "PM.DEBUG_LOG" Then
                    USER_DEBUG_LOG = True
                    LOGCONFIG.Debug = True
                ElseIf oMode = "PM.IDBWITHWMFS" Then
                    IDB_USES_WMFILESTORE = True
                ElseIf oMode.StartsWith("PM.IDBCS!") Then
                    CONNECTION_STRING_IDB = oMode.Replace("PM.IDBCS!", "")
                    Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
                    Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
                    If Not IsNothing(oDT) Then
                        If oDT.Rows.Count > 0 Then
                            IDB_ACTIVE = True
                        End If
                    End If
                Else
                    LOGGER.Info($"Wrong oMode: {oMode}")
                End If
            Next

        End If

    End Sub
End Class