DNN-Portal-List-Module/Settings.ascx.vb at main · 40fingers/DNN-Portal-List-Module · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Imports FortyFingers.DNN.Modules.PortalList.Components
Imports DotNetNuke.Entities.Modules
Imports DotNetNuke.Services.Localization

Public Class Settings

    Inherits ModuleSettingsBase

    Dim objConfig As Config


    Public Overrides Sub LoadSettings()

        objConfig = New Config(Settings, ModuleId, TabModuleId)

        GetSettings(objConfig)

    End Sub

    Public Sub ResetSettings()

        Dim objConfigReset As Config = New Config(Settings, 0, 0)

        GetSettings(objConfigReset)

    End Sub


    Public Sub GetSettings(objConfig As Config)

        txtRootTemplate.Text = objConfig.RootTemplate
        txtItemTemplate.Text = objConfig.ItemTemplate
        txtMaxPortals.Text = objConfig.MaxPortals.ToString()

        chkFilter.Checked = objConfig.Filter
        chkFilterModeInclude.Checked = objConfig.FilterInclude
        txtPortalAliasFilter.Text = objConfig.PortalAliasFilter
        txtPortalDescriptionFilter.Text = objConfig.PortalDescriptionFilter
        txtPortalKeywordFilter.Text = objConfig.PortalKeywordFilter

        txtCategoryNameTemplate.Text = objConfig.CategoryNameTemplate
        txtCategoryFilter.Text = objConfig.CategoryFilter

    End Sub


    Public Overrides Sub UpdateSettings()

        objConfig = New Config(Settings, ModuleId, TabModuleId)

        objConfig.RootTemplate = txtRootTemplate.Text
        objConfig.ItemTemplate = txtItemTemplate.Text
        objConfig.MaxPortals = Val(txtMaxPortals.Text)

        objConfig.Filter = chkFilter.Checked
        objConfig.FilterInclude = chkFilterModeInclude.Checked

        objConfig.PortalAliasFilter = txtPortalAliasFilter.Text
        objConfig.PortalDescriptionFilter = txtPortalDescriptionFilter.Text
        objConfig.PortalKeywordFilter = txtPortalKeywordFilter.Text

        objConfig.CategoryNameTemplate = txtCategoryNameTemplate.Text
        objConfig.CategoryFilter = txtCategoryFilter.Text


    End Sub


End Class