-
Notifications
You must be signed in to change notification settings - Fork 0
/
EditFeedbackComplete.ascx.vb
executable file
·111 lines (73 loc) · 3.41 KB
/
EditFeedbackComplete.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
'
' Feedback Center for DotNetNuke - http://www.dotnetnuke.com
' Copyright (c) 2002-2005
' by Scott McCulloch ( smcculloch@iinet.net.au ) ( http://www.smcculloch.net )
'
Imports System.IO
Imports System.Web
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports DotNetNuke
Imports DotNetNuke.Common
Imports DotNetNuke.Common.Utilities
Imports DotNetNuke.Entities.Modules
Imports DotNetNuke.Services.Localization
Imports Ventrian.FeedbackCenter.Entities
Namespace Ventrian.FeedbackCenter
Public MustInherit Class EditFeedbackComplete
Inherits FeedbackCenterBase
#Region " Controls "
Protected WithEvents lblSubmitComplete As System.Web.UI.WebControls.Label
Protected WithEvents lblSubmitMessage As System.Web.UI.WebControls.Label
Protected WithEvents rptBreadCrumbs As System.Web.UI.WebControls.Repeater
#End Region
#Region " Private Members "
Private _feedbackID As Integer = Null.NullInteger
#End Region
#Region " Private Methods "
Private Sub ReadQueryString()
If Not (Request("FeedbackID") Is Nothing) Then
_feedbackID = Convert.ToInt32(Request("FeedbackID"))
End If
End Sub
Private Sub BindCrumbs()
Dim crumbs As New ArrayList
Dim crumbAllAlbums As New CrumbInfo
crumbAllAlbums.Caption = Localization.GetString("AllFeedback", LocalResourceFile)
crumbAllAlbums.Url = NavigateURL()
crumbs.Add(crumbAllAlbums)
Dim addtCrumb As New CrumbInfo
addtCrumb.Caption = Localization.GetString("AddNewFeedback", LocalResourceFile)
addtCrumb.Url = NavigateURL(Me.TabId, "", "fbType=Edit")
crumbs.Add(addtCrumb)
Dim currentCrumb As New CrumbInfo
currentCrumb.Caption = Localization.GetString("AddNewFeedbackComplete", LocalResourceFile)
currentCrumb.Url = Request.Url.ToString()
crumbs.Add(currentCrumb)
rptBreadCrumbs.DataSource = crumbs
rptBreadCrumbs.DataBind()
End Sub
#End Region
#Region " Event Handlers "
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReadQueryString()
BindCrumbs()
If (Request("approval") <> "") Then
lblSubmitMessage.Text = String.Format(Localization.GetString("SubmitMessageApproval", LocalResourceFile), NavigateURL(Me.TabId, "", "fbType=Edit"), NavigateURL(Me.TabId, "", "fbType=Search"))
Else
lblSubmitMessage.Text = String.Format(Localization.GetString("SubmitMessage", LocalResourceFile), NavigateURL(Me.TabId, "", "fbType=Edit"), NavigateURL(Me.TabId, "", "fbType=Search"))
End If
End Sub
#End Region
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
End Class
End Namespace