Error: Sys.InvalidOperationException: A control is already associated with the element.It turns out that if you plan to use the Telerik controls in DNN, you MUST replace the default script manager. Even if you choose to not use the script manger by making sure supports partial rendering is unchecked, there will still be a script manager in the page which will cause conflict. I had to make some small changes to the DotNetNuke core framework in DotNetNuke 5.6.3. I had to make changes to the DotNetNuke.Library in the AJAX class, In the file AJAX.VB. At line 46 I changed the line to read:
Using objScriptManager As Telerik.Web.UI.RadScriptManager = New Telerik.Web.UI.RadScriptManager() With {.ID = "ScriptManager", .EnableScriptGlobalization = True}
So now my whole file looks like:
'
' DotNetNuke® - http://www.dotnetnuke.com
' Copyright (c) 2002-2010
' by DotNetNuke Corporation
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions
' of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
' DEALINGS IN THE SOFTWARE.
'
Imports System.Web.Compilation
Imports System.Reflection
Imports System.Xml
Imports System.Xml.XPath
Imports DotNetNuke.Entities.Host
Namespace DotNetNuke.Framework
Public Class AJAX
#Region "Public Methods"
''' -----------------------------------------------------------------------------
'''
''' AddScriptManager is used internally by the framework to add a ScriptManager control to the page
'''
'''
'''
'''
'''
''' -----------------------------------------------------------------------------
Public Shared Sub AddScriptManager(ByVal objPage As Page)
If GetScriptManager(objPage) Is Nothing Then
Using objScriptManager As Telerik.Web.UI.RadScriptManager = New Telerik.Web.UI.RadScriptManager() With {.ID = "ScriptManager", .EnableScriptGlobalization = True}
If objPage.Form IsNot Nothing Then
Try
objPage.Form.Controls.AddAt(0, objScriptManager)
Catch ex As HttpException
'suppress error adding script manager to support edge-case of module developers custom aspx pages that inherit from basepage and use code blocks
End Try
If HttpContext.Current.Items("System.Web.UI.ScriptManager") Is Nothing Then
HttpContext.Current.Items.Add("System.Web.UI.ScriptManager", True)
End If
End If
End Using
End If
End Sub
Public Shared Function GetScriptManager(ByVal objPage As Page) As ScriptManager
Return TryCast(objPage.FindControl("ScriptManager"), ScriptManager)
End Function
''' -----------------------------------------------------------------------------
'''
''' IsEnabled can be used to determine if AJAX has been enabled already as we
''' only need one Script Manager per page.
'''
'''
'''
'''
'''
''' -----------------------------------------------------------------------------
Public Shared Function IsEnabled() As Boolean
If HttpContext.Current.Items("System.Web.UI.ScriptManager") Is Nothing Then
Return False
Else
Return CType(HttpContext.Current.Items("System.Web.UI.ScriptManager"), Boolean)
End If
End Function
''' -----------------------------------------------------------------------------
'''
''' IsInstalled can be used to determine if AJAX is installed on the server
'''
'''
'''
'''
'''
''' -----------------------------------------------------------------------------
Public Shared Function IsInstalled() As Boolean
Return True
End Function
''' -----------------------------------------------------------------------------
'''
''' Allows a control to be excluded from UpdatePanel async callback
'''
'''
'''
'''
'''
''' -----------------------------------------------------------------------------
Public Shared Sub RegisterPostBackControl(ByVal objControl As Control)
Dim objScriptManager As ScriptManager = GetScriptManager(objControl.Page)
If objScriptManager IsNot Nothing Then
objScriptManager.RegisterPostBackControl(objControl)
End If
End Sub
''' -----------------------------------------------------------------------------
'''
''' RegisterScriptManager must be used by developers to instruct the framework that AJAX is required on the page
'''
'''
'''
'''
'''
''' -----------------------------------------------------------------------------
Public Shared Sub RegisterScriptManager()
If Not IsEnabled() Then
HttpContext.Current.Items.Add("System.Web.UI.ScriptManager", True)
End If
End Sub
''' -----------------------------------------------------------------------------
'''
''' RemoveScriptManager will remove the ScriptManager control during Page Render if the RegisterScriptManager has not been called
'''
'''
'''
'''
'''
''' -----------------------------------------------------------------------------
Public Shared Sub RemoveScriptManager(ByVal objPage As Page)
If IsEnabled() = False Then
Dim objControl As Control = objPage.FindControl("ScriptManager")
If Not objControl Is Nothing Then
objPage.Form.Controls.Remove(objControl)
End If
End If
End Sub
''' -----------------------------------------------------------------------------
'''
''' Wraps a control in an update panel
'''
'''
'''
'''
'''
''' -----------------------------------------------------------------------------
Public Shared Function WrapUpdatePanelControl(ByVal objControl As Control, ByVal blnIncludeProgress As Boolean) As Control
Dim updatePanel As New UpdatePanel()
updatePanel.ID = objControl.ID & "_UP"
updatePanel.UpdateMode = UpdatePanelUpdateMode.Conditional
Dim objContentTemplateContainer As Control = updatePanel.ContentTemplateContainer
For i As Integer = 0 To objControl.Parent.Controls.Count - 1 'find offset of original control
If objControl.Parent.Controls(i).ID = objControl.ID Then 'if ID matches
objControl.Parent.Controls.AddAt(i, updatePanel) 'insert update panel in that position
objContentTemplateContainer.Controls.Add(objControl) 'inject passed in control into update panel
Exit For
End If
Next
If blnIncludeProgress Then
'create image for update progress control
Dim objImage As System.Web.UI.WebControls.Image = New System.Web.UI.WebControls.Image()
objImage.ImageUrl = "~/images/progressbar.gif" 'hardcoded
objImage.AlternateText = "ProgressBar"
Dim updateProgress As New UpdateProgress
updateProgress.AssociatedUpdatePanelID = updatePanel.ID
updateProgress.ID = updatePanel.ID + "_Prog"
updateProgress.ProgressTemplate = New UI.WebControls.LiteralTemplate(objImage)
objContentTemplateContainer.Controls.Add(updateProgress)
End If
Return updatePanel
End Function
#End Region
#Region "Obsolete Methods"
_
Public Shared Function ContentTemplateContainerControl(ByVal objUpdatePanel As Object) As Control
Return TryCast(objUpdatePanel, UpdatePanel).ContentTemplateContainer
End Function
_
Public Shared Function CreateUpdatePanelControl() As Control
Dim updatePanel As New UpdatePanel()
updatePanel.UpdateMode = UpdatePanelUpdateMode.Conditional
Return updatePanel
End Function
_
Public Shared Function CreateUpdateProgressControl(ByVal AssociatedUpdatePanelID As String) As Control
Dim updateProgress As New UpdateProgress
updateProgress.ID = AssociatedUpdatePanelID + "_Prog"
updateProgress.AssociatedUpdatePanelID = AssociatedUpdatePanelID
Return updateProgress
End Function
_
Public Shared Function CreateUpdateProgressControl(ByVal AssociatedUpdatePanelID As String, ByVal ProgressHTML As String) As Control
Dim updateProgress As New UpdateProgress
updateProgress.ID = AssociatedUpdatePanelID + "_Prog"
updateProgress.AssociatedUpdatePanelID = AssociatedUpdatePanelID
updateProgress.ProgressTemplate = New UI.WebControls.LiteralTemplate(ProgressHTML)
Return updateProgress
End Function
_
Public Shared Function CreateUpdateProgressControl(ByVal AssociatedUpdatePanelID As String, ByVal ProgressControl As Control) As Control
Dim updateProgress As New UpdateProgress
updateProgress.ID = AssociatedUpdatePanelID + "_Prog"
updateProgress.AssociatedUpdatePanelID = AssociatedUpdatePanelID
updateProgress.ProgressTemplate = New UI.WebControls.LiteralTemplate(ProgressControl)
Return updateProgress
End Function
_
Public Shared Function IsHostEnabled() As Boolean
Return True
End Function
_
Public Shared Function ScriptManagerControl(ByVal objPage As Page) As Control
Return objPage.FindControl("ScriptManager")
End Function
_
Public Shared Sub SetScriptManagerProperty(ByVal objPage As Page, ByVal PropertyName As String, ByVal Args() As Object)
Dim scriptManager As ScriptManager = GetScriptManager(objPage)
If scriptManager IsNot Nothing Then
Reflection.SetProperty(scriptManager.GetType(), PropertyName, scriptManager, Args)
End If
End Sub
#End Region
End Class
End Namespace
Now once you recompile, take the newly created DotNetNuke.dll and add it to your current project and run it.
