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

            If WORKING_MODE.Contains("PM#FORCE_LAYOUT_OVERVIEW") Then
                FORCE_LAYOUT_OVERVIEW = True
            End If

            If WORKING_MODE.Contains("PM#NO_CHARTS") Then
                SHOW_CHARTS = False
            End If

            If WORKING_MODE.Contains("PM#DEBUG_LOG") Then
                USER_DEBUG_LOG = True
                LOGCONFIG.Debug = True

            End If

        End If

    End Sub
End Class