Products

Solutions

Resources

Partners

Community

Blog

About

QA

Ideas Test

New Community Website

Ordinarily, you'd be at the right spot, but we've recently launched a brand new community website... For the community, by the community.

Yay... Take Me to the Community!

Welcome to the DNN Community Forums, your preferred source of online community support for all things related to DNN.
In order to participate you must be a registered DNNizen

HomeHomeDNN Open Source...DNN Open Source...Module ForumsModule ForumsForumForumFor the Brave - 03.20.01 Code FixesFor the Brave - 03.20.01 Code Fixes
Previous
 
Next
New Post
12/27/2005 12:11 AM
 

FOR-2275

Forum_ThreadMove.ascx.vb (around line 193)

Private Sub cmdMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMove.Click

Try

' See if user selected a forum to move thread to.

' Get the forumID where the user is moving the thread to

Dim newForumID As Integer = Int32.Parse(ctlForumLookup.ResultItems.TrimStart(";"c))

' If the new forumID is the same as the old ForumID

If newForumID = mOldForumID Then

' Show user error message

MessageCell.Controls.Add(UI.Skins.Skin.GetModuleMessageControl("", DotNetNuke.Services.Localization.Localization.GetString("OldForumSeleted.Text", Me.LocalResourceFile), DotNetNuke.UI.Skins.Controls.ModuleMessage.ModuleMessageType.RedError))

Exit Sub

Else

' It is not the same forumID, Move it

Dim ctlThread As New ThreadController

ctlThread.ThreadMove(mThreadID, newForumID)

ForumInfo.ResetForumInfo(newForumID)

ForumInfo.ResetForumInfo(mOldForumID)

ThreadInfo.ResetThreadInfo(mThreadID, mUserID)

' return to new forum page

Dim params As String() = New String(2) {"scope=threads", "forumid=" & newForumID.ToString, "mid=" & ModuleId}

Dim strURL As String = NavigateURL(TabId, "", params)

Response.Redirect(strURL)

End If

'Else

' ' User did not select a forum to move post to, show an error validator.

' lblInfo.Visible = True

'End If

Catch ex As Exception

LogException(ex)

Dim x As String

x = ex.ToString

End Try

End Sub


Chris Paterra

Get direct answers to your questions in the Community Exchange.
 
New Post
12/27/2005 12:46 AM
 

FOR-2258

In ForumWhatsNewInfo.vb

Add the following Property:

Public ReadOnly Property ForumConfig() As Forum.Config

Get

Return Forum.Config.GetForumConfig(ModuleID)

End Get

End Property

Replace the existing property with (Old items are commented out):

Public ReadOnly Property LastPostInfo() As String

Get

If mLastPostAlias.Length > 0 Then

Dim strInfo As String

strInfo = GetCreatedDateInfo(mLastCreatedDate, ForumConfig)

' If mLastCreatedDate.Date = Today Then

' strInfo = "<b>Today</b>"

' Else

' strInfo = LastCreatedDate.ToString()

' End If

strInfo += " " & mLastPostAlias

Return strInfo

'Else

' Return ""

End If

End Get

End Property


Chris Paterra

Get direct answers to your questions in the Community Exchange.
 
New Post
12/27/2005 1:06 AM
 

Data Changes, Be Very Careful!!!

FOR-2260

This is taken from a new dataprovider file, but i recomend replacing proper items and running manually.  Otherwise, you could cause future upgrade conflicts.

"if exists (select * from dbo.sysobjects where id = object_id(N'{databaseOwner}{objectQualifier}Forum_UserDeleteReads') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure {databaseOwner}{objectQualifier}Forum_UserDeleteReads
GO

if exists (select * from dbo.sysobjects where id = object_id(N'{databaseOwner}{objectQualifier}Forum_UserThreadsDelete') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure {databaseOwner}{objectQualifier}Forum_UserThreadsDelete
GO


CREATE PROCEDURE {databaseOwner}{objectQualifier}Forum_UserDeleteReads
 @UserId int
AS

DELETE FROM {objectQualifier}Forum_UserThreads
WHERE UserID = @UserId

DELETE FROM {objectQualifier}Forum_UserForums
WHERE UserID = @UserId

GO


CREATE PROCEDURE {databaseOwner}{objectQualifier}Forum_UserThreadsDelete
 @UserID int,
 @ThreadID int
AS

DELETE FROM {objectQualifier}Forum_UserThreads
WHERE
 UserID = @UserID
 AND
 ThreadID = @ThreadID


GO"


Chris Paterra

Get direct answers to your questions in the Community Exchange.
 
New Post
1/11/2006 9:24 PM
 

Put the function below into your ForumUtils.vb file.  You will need to adjust all places email url's are generated and pass them throught his function.  This will be in Forum_PostModerate.ascx.vb, Forum_PostEdit.ascx.vb.  Be careful not to change the normal url's used for redirection, only email ones.  I may be skipping some spots, did this a few days ago.  You will only need this fix in plcase if you are NOT users FURLS.

 

Public Shared Function FullURL(ByVal mailURL As String) As String

'this may be possible if FURL's are off

If mailURL.StartsWith("http") = False Then

'Removing virtual directory from portal alias.

Dim _portalSettings As PortalSettings = PortalController.GetCurrentPortalSettings

Dim domain As String = _portalSettings.PortalAlias.HTTPAlias.Replace(HttpContext.Current.Request.ApplicationPath, "")

mailURL = AddHTTP(domain + mailURL)

End If

Return mailURL

End Function


Chris Paterra

Get direct answers to your questions in the Community Exchange.
 
Previous
 
Next
HomeHomeDNN Open Source...DNN Open Source...Module ForumsModule ForumsForumForumFor the Brave - 03.20.01 Code FixesFor the Brave - 03.20.01 Code Fixes


These Forums are dedicated to discussion of DNN Platform and Evoq Solutions.

For the benefit of the community and to protect the integrity of the ecosystem, please observe the following posting guidelines:

  1. No Advertising. This includes promotion of commercial and non-commercial products or services which are not directly related to DNN.
  2. No vendor trolling / poaching. If someone posts about a vendor issue, allow the vendor or other customers to respond. Any post that looks like trolling / poaching will be removed.
  3. Discussion or promotion of DNN Platform product releases under a different brand name are strictly prohibited.
  4. No Flaming or Trolling.
  5. No Profanity, Racism, or Prejudice.
  6. Site Moderators have the final word on approving / removing a thread or post or comment.
  7. English language posting only, please.
What is Liquid Content?
Find Out
What is Liquid Content?
Find Out
What is Liquid Content?
Find Out