comments.ascx.vb

Module articles for Dot Net Nuke 3.x.x , 4.x.x

'
' Created by SharpDevelop.
' User: cezar
' Date: 9/7/2005
' Time: 5:05 PM
' 
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'

Imports System
Imports System.Collections
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Microsoft.VisualBasic
Imports DotNetNuke.Security

Imports EfficionConsulting.Categories
Imports DotNetNuke

Namespace EfficionConsulting.Articles
Public Class Comments
	Inherits DotNetNuke.Entities.Modules.PortalModuleBase
	'Inherits System.Web.UI.UserControl
	Protected WithEvents panelListComments As System.Web.UI.WebControls.Panel
	Protected WithEvents panelAddComment As System.Web.UI.WebControls.Panel
	Protected WithEvents txtName As System.Web.UI.WebControls.Textbox
	Protected WithEvents txtEmail As System.Web.UI.WebControls.Textbox
	Protected WithEvents txtComments As System.Web.UI.WebControls.Textbox
	Protected WithEvents btnAddComment As System.Web.UI.WebControls.Button
	Protected WithEvents listComments As System.Web.UI.WebControls.DataList
	Protected WithEvents lblOnlyLoggedIn As System.Web.UI.WebControls.Label
	
	Public ArticleId As Integer = -1
	Private _AllowAnonymous As Boolean = False	
	Private _ArticleAuthorEmail as String = ""

#Region "Properties"
	
	Public Property AllowAnonymous As Boolean
		Get
			Return _AllowAnonymous
		End Get
		Set(ByVal Value As Boolean)
			_AllowAnonymous = Value
		End Set		
	End Property

	Public Property ArticleAuthorEmail As String
		Get
			Return _ArticleAuthorEmail
		End Get
		Set(ByVal Value As String)
			_ArticleAuthorEmail = Value
		End Set		
	End Property

#End Region

	Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

		LocalResourceFile = DotNetNuke.Services.Localization.Localization.GetResourceFile(Me, "Comments.ascx")
		
		If Not (Request.Params("ItemID") Is Nothing) Then
			ArticleId = Integer.Parse(Request.Params("ItemID"))
			ViewState("ArticleID") = ArticleID
		Else
			ArticleID = ViewState("ArticleID")
		End If

		Dim Articles As New ArticleController()

		panelListComments.Visible = True
		panelAddComment.Visible = True
		
		Dim comments As ArrayList = Articles.GetComments(ArticleId)
		listComments.DataSource = comments		
		listComments.DataBind()
		If _AllowAnonymous = False And UserInfo.UserID = -1 Then
			panelAddComment.Visible = False
			lblOnlyLoggedIn.Visible = True
		End If
		If panelAddComment.Visible And UserInfo.UserID <> -1 Then
			txtName.Text = UserInfo.FullName
			txtEmail.Text  = UserInfo.Membership.Email
		End If
				
	End Sub
	
	Private Sub btnAddComment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddComment.Click
		Dim Articles As New ArticleController()
		Dim objComment As New CommentInfo()
		objComment.ArticleID = ArticleID
		objComment.Name = txtName.Text.Trim()
		objComment.Email = txtEmail.Text.Trim()
		objComment.Comment = txtComments.Text
		Articles.AddComment(objComment)
		
		' send notification
		dim userc as new DotNetNuke.Entities.Users.Usercontroller
		Dim objUser As UserInfo = userc.GetUserByUserName(PortalId, context.User.Identity.Name)
	
		If Not objUser Is Nothing
			Dim objArticle As ArticleInfo = Articles.GetArticle(ArticleId)
			Dim emailSubject as String = "re: " & objArticle.Title
			Dim emailBody As String = txtName.Text & "(" & txtEmail.Text & ") posted a comment to your Article: " & vbcrlf & txtComments.Text.Trim()
			Dim emailFrom As String = PortalSettings.HostSettings("HostEmail").ToString()
			Dim emailBCC As String = ""
			Dim emailTo As String = _ArticleAuthorEmail
			If emailTo.IndexOf("@") = -1 Then 
				emailTo = PortalSettings.HostSettings("HostEmail").ToString()
			End If
			SendNotification(emailFrom, emailTo, "", emailSubject, emailBody)
		End If

		Response.Redirect(EditURL("ItemID", ArticleID.ToString(),"Details"))
	End Sub
		
#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