Hi,
There have been 3 or 4 posts regarding this issue, and according to the response below, it is a core issue, not an issue of the events module. Can we get a confirmation on this issue and make a core request change if appropriate?
This issue makes the events module unuseable.
Is this the correct question to the core team?
"Please allow an option in the module configuration to allow components within the module to operate only within the confines of parent frame for the skin (i.e. Content, Left, Right, etc.). Currently, module subcontrols, when invoked, consume the entire page and do not display other page content outside their parent frame. This would be controlled on a page, per module instance."
alien0420 wrote
This is due to an error in the core. There is a call to DotNetNuke.Common.Globals.IsAdminSkin in the initialization of default.aspx.
The fix that I found was to alter the function and recompile. Below are the original and updated functions.
Original Function
'returns a boolean value whether the page should display an admin skin
Public Function IsAdminSkin(ByVal IsAdminTab As Boolean) As Boolean
Dim AdminKeys As String = "tab,module,importmodule,exportmodule,help"
Dim ControlKey As String = ""
If Not HttpContext.Current.Request.QueryString("ctl") Is Nothing Then
ControlKey = HttpContext.Current.Request.QueryString("ctl").ToLower
End If
Dim ModuleID As Integer = -1
If Not HttpContext.Current.Request.QueryString("mid") Is Nothing Then
ModuleID = Integer.Parse(HttpContext.Current.Request.QueryString("mid"))
End If
Return IsAdminTab OrElse (ControlKey <> "" And ControlKey <> "view" And ModuleID <> -1) OrElse (ControlKey <> "" And AdminKeys.IndexOf(ControlKey) <> -1 And ModuleID = -1)
End Function
Updated Function
' returns a boolean value whether the page should display an admin skin
Public Function IsAdminSkin(ByVal IsAdminTab As Boolean) As Boolean
Dim AdminKeys As String = "tab,module,importmodule,exportmodule,help"
Dim ControlKey As String = ""
If Not HttpContext.Current.Request.QueryString("ctl") Is Nothing Then
ControlKey = HttpContext.Current.Request.QueryString("ctl").ToLower
End If
Dim ModuleID As Integer = -1
If Not HttpContext.Current.Request.QueryString("mid") Is Nothing Then
ModuleID = Integer.Parse(HttpContext.Current.Request.QueryString("mid"))
End If
Return IsAdminTab OrElse (ControlKey <> "" And AdminKeys.IndexOf(ControlKey) <> -1 And ModuleID = -1)
End Function
The offending line in the original is highlighted in
RED and the correct line is in
GREEN.