-
Notifications
You must be signed in to change notification settings - Fork 12
/
EditTemplateDefinition.ascx.vb
executable file
·261 lines (177 loc) · 9.18 KB
/
EditTemplateDefinition.ascx.vb
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
Imports DotNetNuke.Common
Imports DotNetNuke.Common.Utilities
Imports DotNetNuke.Entities.Portals
Imports DotNetNuke.Services.Exceptions
Imports DotNetNuke.Services.Localization
Imports DotNetNuke.UI.UserControls
Namespace Ventrian.PropertyAgent
Partial Public Class EditTemplateDefinition
Inherits PropertyAgentBase
#Region " Private Members "
Private _templateID As Integer = Null.NullInteger
#End Region
#Region " Private Methods "
Private Sub ReadQueryString()
If Not (Request("TemplateID") Is Nothing) Then
_templateID = Convert.ToInt32(Request("TemplateID"))
End If
End Sub
Private Sub BindCrumbs()
Dim crumbs As New ArrayList
Dim objCrumbMain As New CrumbInfo
objCrumbMain.Caption = PropertySettings.MainLabel
objCrumbMain.Url = NavigateURL()
crumbs.Add(objCrumbMain)
Dim objTemplateDefinitions As New CrumbInfo
objTemplateDefinitions.Caption = Localization.GetString("EditTemplateDefinitions", LocalResourceFile)
objTemplateDefinitions.Url = NavigateURL(Me.TabId, "", PropertySettings.SEOAgentType & "=EditTemplateDefinitions")
crumbs.Add(objTemplateDefinitions)
Dim objTemplate As New CrumbInfo
objTemplate.Caption = Localization.GetString("EditTemplateDefinition", LocalResourceFile)
objTemplate.Url = Request.RawUrl.ToString()
crumbs.Add(objTemplate)
If (PropertySettings.BreadcrumbPlacement = BreadcrumbType.Portal) Then
For i As Integer = 0 To crumbs.Count - 1
Dim objCrumb As CrumbInfo = crumbs(i)
If (i > 0) Then
Dim objTab As New DotNetNuke.Entities.Tabs.TabInfo
objTab.TabID = -8888 + i
objTab.TabName = objCrumb.Caption
objTab.Url = objCrumb.Url
PortalSettings.ActiveTab.BreadCrumbs.Add(objTab)
End If
Next
End If
If (PropertySettings.BreadcrumbPlacement = BreadcrumbType.Module) Then
rptBreadCrumbs.DataSource = crumbs
rptBreadCrumbs.DataBind()
End If
End Sub
Private Sub BindDetails()
If (_templateID <> Null.NullInteger) Then
Dim objTemplateController As New TemplateController
Dim objTemplate As TemplateInfo = objTemplateController.Get(_templateID)
If Not (objTemplate Is Nothing) Then
txtFolder.Text = objTemplate.Folder
txtTitle.Text = objTemplate.Title
txtDescription.Text = objTemplate.Description
chkPremium.Checked = objTemplate.IsPremium
Dim objPortals As New PortalController
Dim arrPortals As ArrayList = objPortals.GetPortals
Dim objTemplatePortalController As New TemplatePortalController
Dim arrTemplatePortals As ArrayList = objTemplatePortalController.List(_templateID)
For Each objTemplatePortal As TemplatePortalInfo In arrTemplatePortals
For Each objPortal As PortalInfo In arrPortals
If objPortal.PortalID = objTemplatePortal.PortalID Then
arrPortals.Remove(objPortal)
Exit For
End If
Next
Next
CType(ctlPortals, DualListControl).Available = arrPortals
CType(ctlPortals, DualListControl).Assigned = arrTemplatePortals
CType(ctlPortals, DualListControl).Visible = chkPremium.Checked
AdjustPortals()
Else
Response.Redirect(NavigateURL(Me.TabId, "", PropertySettings.SEOAgentType & "=EditTemplateDefinitions"), True)
End If
Else
Response.Redirect(NavigateURL(Me.TabId, "", PropertySettings.SEOAgentType & "=EditTemplateDefinitions"), True)
End If
End Sub
Private Sub AdjustPortals()
If (chkPremium.Checked) Then
ctlPortals.Visible = True
Else
ctlPortals.Visible = False
End If
End Sub
Private Sub SaveDetails()
Dim objTemplate As New TemplateInfo
objTemplate.TemplateID = _templateID
objTemplate.Folder = txtFolder.Text
objTemplate.Title = txtTitle.Text
objTemplate.Description = txtDescription.Text
objTemplate.IsPremium = chkPremium.Checked
Dim objTemplateController As New TemplateController
objTemplateController.Update(objTemplate)
Dim objTemplatePortalController As New TemplatePortalController
objTemplatePortalController.Delete(_templateID)
If (objTemplate.IsPremium) Then
For Each objListItem As ListItem In CType(ctlPortals, DualListControl).Assigned
Dim objTemplatePortal As New TemplatePortalInfo
objTemplatePortal.PortalID = Integer.Parse(objListItem.Value)
objTemplatePortal.TemplateID = _templateID
objTemplatePortalController.Add(objTemplatePortal)
Next
End If
End Sub
#End Region
#Region " Event Handlers "
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
Try
BindCrumbs()
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
ReadQueryString()
If (Page.IsPostBack = False) Then
BindDetails()
Page.SetFocus(txtTitle)
cmdDelete.Attributes.Add("onClick", "javascript:return confirm('" & Localization.GetString("Confirmation", LocalResourceFile) & "');")
End If
cmdCancel.CssClass = PropertySettings.ButtonClass
cmdDelete.CssClass = PropertySettings.ButtonClass
cmdUpdate.CssClass = PropertySettings.ButtonClass
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
Private Sub chkPremium_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkPremium.CheckedChanged
Try
AdjustPortals()
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click
Try
If (Page.IsValid) Then
SaveDetails()
Response.Redirect(NavigateURL(Me.TabId, "", PropertySettings.SEOAgentType & "=EditTemplateDefinitions"), True)
End If
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
Try
Response.Redirect(NavigateURL(Me.TabId, "", PropertySettings.SEOAgentType & "=EditTemplateDefinitions"), True)
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
Try
Dim objTemplateController As New TemplateController
Dim objTemplate As TemplateInfo = objTemplateController.Get(_templateID)
If Not (objTemplate Is Nothing) Then
Try
System.IO.Directory.Delete(ApplicationMapPath & "\DesktopModules\PropertyAgent\Templates\" & objTemplate.Folder, True)
Catch
End Try
End If
Dim objTemplatePortalController As New TemplatePortalController
objTemplatePortalController.Delete(_templateID)
objTemplateController.Delete(_templateID)
Response.Redirect(NavigateURL(Me.TabId, "", PropertySettings.SEOAgentType & "=EditTemplateDefinitions"), True)
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
#End Region
End Class
End Namespace