vmasanas wroteSo you are using a source version for the module so the businesscontroller needs be be specified in a differen manner.
You have to look a that file [app_code] / IRRController.vb, and see the namespace and class names there. Then use that info to provide the full class name dnn needs:
[full namespace].[classname]
-------------------------------------------------------
THAAAAANKS,
I tried this:
DotNetNuke.Modules.IRRs.IRRController, DotNetNuke.Modules.IRRsBut No success , will this is the code for IRRController.vb :
'
Imports DotNetNuke.Services.Search
Imports System
Imports System.Configuration
Imports System.Data
Imports DotNetNuke
Imports System.XML
Imports DotNetNuke.Common.Utilities.XmlUtils
Namespace DotNetNuke.Modules.IIRs
Public Class IIRController
Implements Entities.Modules.ISearchable
Implements Entities.Modules.IPortable
#Region "Public Methods"
Public Sub AddIIR(ByVal objIIR As IIRInfo)
DataProvider.Instance().AddIIR(objIIR.ModuleId, objIIR.Source, objIIR.Url, objIIR.CreatedByUserID, objIIR.OwnedByUserID, objIIR.Category, objIIR.SortOrderIndex, objIIR.Material, objIIR.Country, objIIR.RecMethod, objIIR.MatLanguage, objIIR.City, objIIR.Quantity, objIIR.Comment)
End Sub
Public Sub DeleteIIR(ByVal ItemID As Integer)
DataProvider.Instance().DeleteIIR(ItemID)
End Sub
Public Function GetIIR(ByVal ItemId As Integer, ByVal ModuleId As Integer) As IIRInfo
Return CType(CBO.FillObject(DataProvider.Instance().GetIIR(ItemId, ModuleId), GetType(IIRInfo)), IIRInfo)
End Function
Public Function GetIIRs(ByVal ModuleId As Integer, ByVal PortalId As Integer) As ArrayList
Return CBO.FillCollection(DataProvider.Instance().GetIIRs(ModuleId, PortalId), GetType(IIRInfo))
End Function
Public Sub UpdateIIR(ByVal objIIR As IIRInfo)
DataProvider.Instance().UpdateIIR(objIIR.ItemId, objIIR.Source, objIIR.Url, objIIR.CreatedByUserID, objIIR.OwnedByUserID, objIIR.Category, objIIR.SortOrderIndex, objIIR.Material, objIIR.Country, objIIR.RecMethod, objIIR.MatLanguage, objIIR.City, objIIR.Quantity, objIIR.Comment)
End Sub
Public Sub AddIIRsSettings(ByVal objIIRsSettings As IIRsSettingsInfo)
DataProvider.Instance().AddIIRsSettings(objIIRsSettings.ModuleId, objIIRsSettings.ShowTitleLink, objIIRsSettings.SortOrder, objIIRsSettings.DisplayColumns, objIIRsSettings.UseCategoriesList)
End Sub
Public Sub DeleteIIRsSettings(ByVal ModuleID As Integer)
DataProvider.Instance().DeleteIIRsSettings(ModuleID)
End Sub
Public Function GetIIRsSettings(ByVal ModuleId As Integer) As IIRsSettingsInfo
Return CType(CBO.FillObject(DataProvider.Instance().GetIIRsSettings(ModuleId), GetType(IIRsSettingsInfo)), IIRsSettingsInfo)
End Function
Public Sub UpdateIIRsSettings(ByVal objIIRsSettings As IIRsSettingsInfo)
DataProvider.Instance().UpdateIIRsSettings(objIIRsSettings.ModuleId, objIIRsSettings.ShowTitleLink, objIIRsSettings.SortOrder, objIIRsSettings.DisplayColumns, objIIRsSettings.UseCategoriesList)
End Sub
#End Region
#Region "Optional Interfaces"
Public Function GetSearchItems(ByVal ModInfo As Entities.Modules.ModuleInfo) As Services.Search.SearchItemInfoCollection Implements Entities.Modules.ISearchable.GetSearchItems
Dim SearchItemCollection As New SearchItemInfoCollection
Dim IIRs As ArrayList = GetIIRs(ModInfo.ModuleID, ModInfo.PortalID)
' TODO: Add new fields
Dim objIIR As Object
For Each objIIR In IIRs
Dim SearchItem As SearchItemInfo
With CType(objIIR, IIRInfo)
Dim UserId As Integer = Null.NullInteger
'If IsNumeric(.CreatedByUser) Then
' UserId = Integer.Parse(.CreatedByUser)
'End If
UserId = .CreatedByUserID
SearchItem = New SearchItemInfo(ModInfo.ModuleTitle & " - " & .Source, .Source, UserId, .CreatedDate, ModInfo.ModuleID, .ItemId.ToString, .Source & " " & .Category, "ItemId=" & .ItemId.ToString)
SearchItemCollection.Add(SearchItem)
End With
Next
Return SearchItemCollection
End Function
Public Function ExportModule(ByVal ModuleID As Integer) As String Implements Entities.Modules.IPortable.ExportModule
Dim strXML As String = ""
Dim objModules As New Entities.Modules.ModuleController
Dim objModule As Entities.Modules.ModuleInfo = objModules.GetModule(ModuleID, Null.NullInteger)
Dim objIIRsSettings As IIRsSettingsInfo = GetIIRsSettings(ModuleID)
If Not objIIRsSettings Is Nothing Then
strXML += "
"
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIRsSettings.DisplayColumns) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIRsSettings.ShowTitleLink.ToString) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIRsSettings.SortOrder) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIRsSettings.UseCategoriesList.ToString) & ""
strXML += ""
End If
Dim arrIIRs As ArrayList = GetIIRs(ModuleID, objModule.PortalID)
If arrIIRs.Count <> 0 Then
strXML += "
"
Dim objIIR As IIRInfo
For Each objIIR In arrIIRs
strXML += ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.Source) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.Url) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.Category) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.CreatedDate.ToString("dd-MMM-yyyy hh:mm:ss tt")) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.Material) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.CreatedByUserID.ToString) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.Country) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.RecMethod) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.MatLanguage) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.City) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.Quantity) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.Comment) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.OwnedByUserID.ToString()) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.ModifiedByUserID.ToString) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.ModifiedDate.ToString("dd-MMM-yyyy hh:mm:ss tt")) & ""
strXML += "" & DotNetNuke.Common.Utilities.XmlUtils.XMLEncode(objIIR.SortOrderIndex.ToString) & ""
strXML += ""
Next
strXML += ""
End If
Return strXML
End Function
Public Sub ImportModule(ByVal ModuleID As Integer, ByVal Content As String, ByVal Version As String, ByVal UserId As Integer) Implements Entities.Modules.IPortable.ImportModule
Dim xmlIIR As XmlNode
Dim xmlIIRsSettings As XmlNode = GetContent(Content, "IIRssettings")
Dim objIIRsSettings As New IIRsSettingsInfo
objIIRsSettings.ModuleId = ModuleID
objIIRsSettings.DisplayColumns = GetNodeValue(xmlIIRsSettings, "displaycolumns")
objIIRsSettings.ShowTitleLink = GetNodeValueBoolean(xmlIIRsSettings, "showtitlelink")
objIIRsSettings.SortOrder = GetNodeValue(xmlIIRsSettings, "sortorder")
objIIRsSettings.UseCategoriesList = GetNodeValueBoolean(xmlIIRsSettings, "usecategorieslist")
Dim xmlIIRs As XmlNode = GetContent(Content, "IIRs")
For Each xmlIIR In xmlIIRs.SelectNodes("IIR")
Dim objIIR As New IIRInfo
objIIR.ModuleId = ModuleID
objIIR.Source = xmlIIR.Item("Source").InnerText
objIIR.Url = ImportUrl(ModuleID, xmlIIR.Item("url").InnerText)
objIIR.Category = xmlIIR.Item("category").InnerText
objIIR.CreatedDate = GetNodeValueDate(xmlIIRs, "createddate", Now)
objIIR.Material = GetNodeValue(xmlIIRs, "Material")
objIIR.Country = GetNodeValue(xmlIIRs, "Country")
objIIR.RecMethod = GetNodeValue(xmlIIRs, "RecMethod")
objIIR.MatLanguage = GetNodeValue(xmlIIRs, "MatLanguage")
objIIR.City = GetNodeValue(xmlIIRs, "City")
objIIR.Quantity = GetNodeValue(xmlIIRs, "Quantity")
objIIR.Comment = GetNodeValue(xmlIIRs, "Comment")
objIIR.CreatedByUserID = UserId
objIIR.OwnedByUserID = GetNodeValueInt(xmlIIRs, "ownedbyuserid")
objIIR.ModifiedByUserID = GetNodeValueInt(xmlIIRs, "modifiedbyuserid")
objIIR.ModifiedDate = GetNodeValueDate(xmlIIRs, "modifieddate", Now)
objIIR.SortOrderIndex = GetNodeValueInt(xmlIIRs, "sortorderindex")
AddIIR(objIIR)
Next
End Sub
#End Region
End Class
End Namespace
-----------------------------------------------------------------------------------------------------------------
I need your help.
Best Regrads.
FHD