 |
|
|
Joined: 6/18/2008
Posts: 58
|
|
|
I have created a DNN Module, Everything looks fine in VWD, no errors. However when I try to load the page, I get the following error. My .vb is also included, the upload, download, & paypal code is actually in there 12 times, I removed some of them to make this post shorter.
 |
Error: PGT is currently unavailable.
DotNetNuke.Services.Exceptions.ModuleLoadException: Object reference not set to an instance of an object. ---> System.NullReferenceException: Object reference not set to an instance of an object. at YourCompany.Modules.PGT.ViewPGT..ctor() in C:\Users\David\Desktop\sites\DNN\DesktopModules\PGT\ViewPGT.ascx.vb:line 152 at ASP.desktopmodules_pgt_viewpgt_ascx..ctor() in C:\Users\David\Desktop\sites\DNN\DesktopModules\PGT\ViewPGT.ascx.vb:line 912304 at __ASP.FastObjectFactory_app_web_6gkdbv9i.Create_ASP_desktopmodules_pgt_viewpgt_ascx() at System.Web.Compilation.BuildResultCompiledType.CreateInstance() at System.Web.UI.TemplateControl.LoadControl(IWebObjectFactory objectFactory, VirtualPath virtualPath, Type t, Object[] parameters) at System.Web.UI.TemplateControl.LoadControl(VirtualPath virtualPath) at System.Web.UI.TemplateControl.LoadControl(String virtualPath) at DotNetNuke.UI.Skins.Skin.InjectModule(Control objPane, ModuleInfo objModule, PortalSettings PortalSettings) --- End of inner exception stack trace --- |
'
' DotNetNuke® - http://www.dotnetnuke.com
' Copyright (c) 2002-2006
' by Perpetual Motion Interactive Systems Inc. ( http://www.perpetualmotion.ca )
'
' 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 DotNetNuke
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.Page
Imports System.Collections.Generic
Imports System.Reflection
Imports DotNetNuke.Security.PortalSecurity
Imports DotNetNuke.Entities.Modules.ModuleController
Imports DotNetNuke.Entities.Modules.ModuleSettingsBase
Imports DotNetNuke.Entities.Modules.ModuleInfo
Partial Class DesktopModules_PGT_ViewPGT
Inherits Entities.Modules.PortalModuleBase
End Class
Namespace YourCompany.Modules.PGT
''' -----------------------------------------------------------------------------
''' <summary>
''' The ViewDynamicModule class displays the content
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Partial Class ViewPGT
Inherits Entities.Modules.PortalModuleBase
Implements Entities.Modules.IActionable
#Region "Private Members"
Private strTemplate As String
#End Region
#Region "Event Handlers"
''' -----------------------------------------------------------------------------
''' <summary>
''' Page_Load runs when the control is loaded
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If Not Page.IsPostBack Then
If CType(Settings("template"), String) <> "" Then
strTemplate = CType(Settings("template"), String)
Else
strTemplate = Localization.GetString("Template.Text", LocalResourceFile)
End If
Dim objPGTs As New PGTController
Dim colPGTs As List(Of PGTInfo)
' get the content from the PGT table
colPGTs = objPGTs.GetPGTs(ModuleId)
If colPGTs.Count = 0 Then
If Localization.GetString("DefaultContent", LocalResourceFile) <> "" Then
' add the content to the PGT table
Dim objPGT As PGTInfo = New PGTInfo
objPGT.ModuleId = ModuleId
objPGT.Content = Localization.GetString("DefaultContent", LocalResourceFile)
objPGT.CreatedByUser = Me.UserId
objPGTs.AddPGT(objPGT)
' get the content from the PGT table
colPGTs = objPGTs.GetPGTs(ModuleId)
End If
End If
' bind the content to the repeater
lstContent.DataSource = colPGTs
lstContent.DataBind()
End If
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
Protected Sub lstContent_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles lstContent.ItemDataBound
Dim strContent As String = strTemplate
Dim strValue As String
' add content to template
Dim objProperties As ArrayList = Common.Utilities.CBO.GetPropertyInfo(GetType(PGTInfo))
Dim intProperty As Integer
Dim objPropertyInfo As PropertyInfo
For intProperty = 0 To objProperties.Count - 1
objPropertyInfo = CType(objProperties(intProperty), PropertyInfo)
If strContent.IndexOf("[" & objPropertyInfo.Name.ToUpper & "]") <> -1 Then
strValue = Server.HtmlDecode(DataBinder.Eval(e.Item.DataItem, objPropertyInfo.Name).ToString())
strContent = strContent.Replace("[" & objPropertyInfo.Name.ToUpper & "]", strValue)
End If
Next intProperty
' assign the content
Dim lblContent As Label = CType(e.Item.FindControl("lblContent"), Label)
lblContent.Text = strContent
End Sub
#End Region
#Region "Optional Interfaces"
''' -----------------------------------------------------------------------------
''' <summary>
''' Registers the module actions required for interfacing with the portal framework
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Public ReadOnly Property ModuleActions() As Entities.Modules.Actions.ModuleActionCollection Implements Entities.Modules.IActionable.ModuleActions
Get
Dim Actions As New Entities.Modules.Actions.ModuleActionCollection
Actions.Add(GetNextActionID, Localization.GetString(Entities.Modules.Actions.ModuleActionType.AddContent, LocalResourceFile), Entities.Modules.Actions.ModuleActionType.AddContent, "", "", EditUrl(), False, Security.SecurityAccessLevel.Edit, True, False)
Return Actions
End Get
End Property
#End Region
Dim coach As String = school & " - Coach"
Dim school As String = CType(Settings("school"), String).ToString
Dim league As String = CType(Settings("league"), String).ToString
Dim sport As String = CType(Settings("sport"), String).ToString
Dim subPrice As String = CType(Settings("subPrice"), String).ToString
Dim subTerm1 As String = CType(Settings("subTerm1"), String).ToString
Dim subTerm2 As String = CType(Settings("subTerm2"), String).ToString
Dim singlePrice As String = CType(Settings("singlePrice"), String).ToString
Dim singleTerm1 As String = CType(Settings("singleTerm1"), String).ToString
Dim singleTerm2 As String = CType(Settings("singleTerm2"), String).ToString
Dim strPath1 As String = "~/uploads/" & school & "/1/"
Dim FileName1 As String = Path.GetFileNameWithoutExtension(strPath1)
Dim DLPath1 As String = strPath1 & FileName1
Dim strPath2 As String = "~/uploads/" & school & "/2/"
Dim FileName2 As String = Path.GetFileNameWithoutExtension(strPath2)
Dim DLPath2 As String = strPath2 & FileName2
Dim strPath3 As String = "~/uploads/" & school & "/3/"
Dim FileName3 As String = Path.GetFileNameWithoutExtension(strPath3)
Dim DLPath3 As String = strPath3 & FileName3
Dim strPath4 As String = "~/uploads/" & school & "/4/"
Dim FileName4 As String = Path.GetFileNameWithoutExtension(strPath4)
Dim DLPath4 As String = strPath4 & FileName4
Dim strPath5 As String = "~/uploads/" & school & "/5/"
Dim FileName5 As String = Path.GetFileNameWithoutExtension(strPath5)
Dim DLPath5 As String = strPath5 & FileName5
Dim strPath6 As String = "~/uploads/" & school & "/6/"
Dim FileName6 As String = Path.GetFileNameWithoutExtension(strPath6)
Dim DLPath6 As String = strPath6 & FileName6
Dim strPath7 As String = "~/uploads/" & school & "/7/"
Dim FileName7 As String = Path.GetFileNameWithoutExtension(strPath7)
Dim DLPath7 As String = strPath7 & FileName7
Dim strPath8 As String = "~/uploads/" & school & "/8/"
Dim FileName8 As String = Path.GetFileNameWithoutExtension(strPath8)
Dim DLPath8 As String = strPath8 & FileName8
Dim strPath9 As String = "~/uploads/" & school & "/9/"
Dim FileName9 As String = Path.GetFileNameWithoutExtension(strPath1)
Dim DLPath9 As String = strPath9 & FileName9
Dim strPath10 As String = "~/uploads/" & school & "/10/"
Dim FileName10 As String = Path.GetFileNameWithoutExtension(strPath10)
Dim DLPath10 As String = strPath10 & FileName10
Dim strPath11 As String = "~/uploads/" & school & "/11/"
Dim FileName11 As String = Path.GetFileNameWithoutExtension(strPath11)
Dim DLPath11 As String = strPath11 & FileName11
Dim strPath12 As String = "~/uploads/" & school & "/12/"
Dim FileName12 As String = Path.GetFileNameWithoutExtension(strPath12)
Dim DLPath12 As String = strPath12 & FileName12
Public Sub Page_Load2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, Me.Load
'-------------------------------------------------------------------------------------------------------------------- Access
'
'--------------------------------------------------------------------------------------------------------------------
If IsInRole(coach) Then
FileUpload1.Visible = True
Upload1.Visible = True
ULLabel1.Visible = True
FileUpload2.Visible = True
Upload2.Visible = True
ULLabel2.Visible = True
FileUpload3.Visible = True
Upload3.Visible = True
ULLabel3.Visible = True
FileUpload4.Visible = True
Upload4.Visible = True
ULLabel4.Visible = True
FileUpload5.Visible = True
Upload5.Visible = True
ULLabel5.Visible = True
FileUpload6.Visible = True
Upload6.Visible = True
ULLabel6.Visible = True
FileUpload7.Visible = True
Upload7.Visible = True
ULLabel7.Visible = True
FileUpload8.Visible = True
Upload8.Visible = True
ULLabel8.Visible = True
FileUpload9.Visible = True
Upload9.Visible = True
ULLabel9.Visible = True
FileUpload10.Visible = True
Upload10.Visible = True
ULLabel10.Visible = True
FileUpload11.Visible = True
Upload11.Visible = True
ULLabel11.Visible = True
FileUpload12.Visible = True
Upload12.Visible = True
ULLabel12.Visible = True
Label2.Visible = True
Label3.Visible = False
Label4.Visible = True
Else
FileUpload1.Visible = False
Upload1.Visible = False
ULLabel1.Visible = False
FileUpload2.Visible = False
Upload2.Visible = False
ULLabel2.Visible = False
FileUpload3.Visible = False
Upload3.Visible = False
ULLabel3.Visible = False
FileUpload4.Visible = False
Upload4.Visible = False
ULLabel4.Visible = False
FileUpload5.Visible = False
Upload5.Visible = False
ULLabel5.Visible = False
FileUpload6.Visible = False
Upload6.Visible = False
ULLabel6.Visible = False
FileUpload7.Visible = False
Upload7.Visible = False
ULLabel7.Visible = False
FileUpload8.Visible = False
Upload8.Visible = False
ULLabel8.Visible = False
FileUpload9.Visible = False
Upload9.Visible = False
ULLabel9.Visible = False
FileUpload10.Visible = False
Upload10.Visible = False
ULLabel10.Visible = False
FileUpload11.Visible = False
Upload11.Visible = False
ULLabel11.Visible = False
FileUpload12.Visible = False
Upload12.Visible = False
ULLabel12.Visible = False
Label2.Visible = False
Label3.Visible = True
Label4.Visible = False
End If
If IsInRole(school + " Temp1") Then
Download1.Visible = True
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy1.Visible = False
ElseIf IsInRole(school + " Temp2") Then
Download1.Visible = False
Download2.Visible = True
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy2.Visible = False
ElseIf IsInRole(school + " Temp3") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = True
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy3.Visible = False
ElseIf IsInRole(school + " Temp4") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = True
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy4.Visible = False
ElseIf IsInRole(school + " Temp5") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = True
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy5.Visible = False
ElseIf IsInRole(school + " Temp6") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = True
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy6.Visible = False
ElseIf IsInRole(school + " Temp7") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = True
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy7.Visible = False
ElseIf IsInRole(school + " Temp8") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = True
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy8.Visible = False
ElseIf IsInRole(school + " Temp9") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = True
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy9.Visible = False
ElseIf IsInRole(school + " Temp10") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = True
Download11.Visible = False
Download12.Visible = False
Buy10.Visible = False
ElseIf IsInRole(school + " Temp11") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = True
Download12.Visible = False
Buy11.Visible = False
ElseIf IsInRole(school + " Temp12") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = True
Buy12.Visible = False
ElseIf IsInRole(school) Or IsInRole(coach) Then
Download1.Visible = True
Download2.Visible = True
Download3.Visible = True
Download4.Visible = True
Download5.Visible = True
Download6.Visible = True
Download7.Visible = True
Download8.Visible = True
Download9.Visible = True
Download10.Visible = True
Download11.Visible = True
Download12.Visible = True
Buy1.Visible = False
Buy2.Visible = False
Buy3.Visible = False
Buy4.Visible = False
Buy5.Visible = False
Buy6.Visible = False
Buy7.Visible = False
Buy8.Visible = False
Buy9.Visible = False
Buy10.Visible = False
Buy11.Visible = False
Buy12.Visible = False
Else
Download1.Visible = False
Buy1.Visible = True
Download2.Visible = False
Buy2.Visible = True
Download3.Visible = False
Buy3.Visible = True
Download4.Visible = False
Buy4.Visible = True
Download5.Visible = False
Buy5.Visible = True
Download6.Visible = False
Buy6.Visible = True
Download7.Visible = False
Buy7.Visible = True
Download8.Visible = False
Buy8.Visible = True
Download9.Visible = False
Buy9.Visible = True
Download10.Visible = False
Buy10.Visible = True
Download11.Visible = False
Buy11.Visible = True
Download12.Visible = False
Buy12.Visible = True
End If
Label10.Text = ("Purchase Season pass to all " & school & "," & league & " " & sport & " Game Tapes - $" & subPrice)
vid1.Text = FileName1
vid2.Text = FileName2
vid3.Text = FileName3
vid4.Text = FileName4
vid5.Text = FileName5
vid6.Text = FileName6
vid7.Text = FileName7
vid8.Text = FileName8
vid9.Text = FileName9
vid10.Text = FileName10
vid11.Text = FileName11
vid12.Text = FileName12
End Sub
Protected Sub Upload1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Upload1.Click
If FileUpload1.HasFile Then
Try
If Not Directory.Exists(strPath1) Then
Directory.CreateDirectory(strPath1)
End If
FileUpload1.SaveAs(Server.MapPath(strPath1 + FileUpload1.FileName))
ULLabel1.Text = "File Uploaded!"
Catch ex As Exception
ULLabel1.Text = "ERROR: " & ex.Message.ToString()
End Try
Else
ULLabel1.Text = "You have not specified a file."
End If
End Sub
'-------------------------------------------------------------------------------------------------------------------- PayPal
'
'--------------------------------------------------------------------------------------------------------------------
Protected Sub Subscription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Subscription.Click
Response.Write(PayPalPostform0().ToString)
End Sub
Public Function PayPalPostform0() As String
Dim PostUrl As String = "https://www.paypal.com/cgi-bin/webscr"
Dim Cmd As String = "_xclick-subscriptions"
Dim no_shipping As String = "1"
Dim BusinessEmail As String = "_________@truvista.net"
Dim Currency As String = "USD"
Dim ItemName As String = school
Dim a3 As String = subPrice
Dim ret As String = "http://www._______________.com/dnn/desktopmodules/uldl/Payment_success.aspx"
Dim cancel As String = "http://www.___________.com"
Dim Note As String = "1"
Dim p3 As String = subTerm1
Dim t3 As String = subTerm2
Dim bn As String = "PP-SubscriptionsBF"
'Create the form to write to the page with PayPal parameters
Dim ppform As New StringBuilder
ppform.Append("<form name=" + """" + "frmPP" + """" + " id=" + """" + "frmPP" + """" + " action=" + """" + PostUrl + """" + " method=" + """" + "post" + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "cmd" + """" + " value=" + """" + Cmd + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "no_shipping" + """" + " value=" + """" + no_shipping + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "business" + """" + " value=" + """" + BusinessEmail + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "currency_code" + """" + " value=" + """" + Currency + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "item_name" + """" + " value=" + """" + ItemName + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "a3" + """" + " value=" + """" + a3 + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "return" + """" + " value=" + """" + ret + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "no_shipping" + """" + " value=" + """" + no_shipping + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "cancel_return" + """" + " value=" + """" + cancel + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "no_note" + """" + " value=" + """" + Note + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "bn" + """" + " value=" + """" + bn + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "p3" + """" + " value=" + """" + p3 + """" + ">")
ppform.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "t3" + """" + " value=" + """" + t3 + """" + ">")
Return ppform.ToString
End Function
'-------------------------------------------------------------------------------------------------------------------- Download
'
'--------------------------------------------------------------------------------------------------------------------
Protected Sub Download1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Download1.Click
Response.TransmitFile(Server.MapPath(DLPath1))
End Sub
End Class
End Namespace
|
| |
|
|
 | |
|
|
|
Your error message indicates the exception occurs on line 152 of your .vb file, in the constructor (.ctor). If you'll take a look at that line, it's assigning an initial value to a variable (which actually takes place in the constructor, even though it doesn't look like it). Somewhere in there, something is Nothing, so a NullReferenceException occurs when you try to reference it. In this case, the only thing that you're referencing is the Settings values by calling ToString on them. If the settings aren't already set, then they will be Nothing, and calling any method on Nothing gets you a NullReferenceException. Furthermore, you're already converting them to strings, so there's no need to be calling ToString in the first place. I think you'll find your problems begin to be solved as you remove the .ToString calls from those initial settings.
Hope that helps,
|
| |
|
|
| |
|
|
Joined: 6/18/2008
Posts: 58
|
|
|
That worked great, The module loads now, but..... The Settings page stores & recalls the inputed values but the View page is not getting them. No errors, just blank fields. I think I probibly have not set something properly in handeling the DB.
View calls them as:
Dim school As String = CType(Settings("school"), String)
App_Code/PGT/PGTInfo.vb
'
' DotNetNuke® - http://www.dotnetnuke.com
' Copyright (c) 2002-2006
' by Perpetual Motion Interactive Systems Inc. ( http://www.perpetualmotion.ca )
'
' 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
Imports System.Configuration
Imports System.Data
Namespace YourCompany.Modules.PGT
''' <summary>
''' The Info class for PGT
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Public Class PGTInfo
' local property declarations
Private _ModuleId As Integer
Private _ItemId As Integer
Private _Content As String
Private _CreatedByUser As Integer
Private _CreatedDate As DateTime
Private _school As String
' initialization
Public Sub New()
End Sub
' public properties
Public Property ModuleId() As Integer
Get
Return _ModuleId
End Get
Set(ByVal Value As Integer)
_ModuleId = Value
End Set
End Property
Public Property ItemId() As Integer
Get
Return _ItemId
End Get
Set(ByVal Value As Integer)
_ItemId = Value
End Set
End Property
Public Property Content() As String
Get
Return _Content
End Get
Set(ByVal Value As String)
_Content = Value
End Set
End Property
Public Property CreatedByUser() As Integer
Get
Return _CreatedByUser
End Get
Set(ByVal Value As Integer)
_CreatedByUser = Value
End Set
End Property
Public Property CreatedDate() As DateTime
Get
Return _CreatedDate
End Get
Set(ByVal Value As DateTime)
_CreatedDate = Value
End Set
End Property
Public Property school() As Integer
Get
Return _school
End Get
Set(ByVal Value As Integer)
_school = Value
End Set
End Property
End Class
End Namespace
App_Code/PGT/DataProvider.vb
'
' DotNetNuke® - http://www.dotnetnuke.com
' Copyright (c) 2002-2006
' by Perpetual Motion Interactive Systems Inc. ( http://www.perpetualmotion.ca )
'
' 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
Imports DotNetNuke
Namespace YourCompany.Modules.PGT
''' -----------------------------------------------------------------------------
''' <summary>
''' An abstract class for the data access layer
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Public MustInherit Class DataProvider
#Region "Shared/Static Methods"
' singleton reference to the instantiated object
Private Shared objProvider As DataProvider = Nothing
' constructor
Shared Sub New()
CreateProvider()
End Sub
' dynamically create provider
Private Shared Sub CreateProvider()
objProvider = CType(Framework.Reflection.CreateObject("data", "YourCompany.Modules.PGT", ""), DataProvider)
End Sub
' return the provider
Public Shared Shadows Function Instance() As DataProvider
Return objProvider
End Function
#End Region
#Region "Abstract methods"
Public MustOverride Function GetPGTs(ByVal ModuleId As Integer) As IDataReader
Public MustOverride Function GetPGT(ByVal ModuleId As Integer,ByVal ItemId As Integer) As IDataReader
Public MustOverride Sub AddPGT(ByVal ModuleId As Integer, ByVal Content As String, ByVal UserId As Integer)
Public MustOverride Sub UpdatePGT(ByVal ModuleId As Integer, ByVal ItemId As Integer, ByVal Content As String, ByVal UserId As Integer)
Public MustOverride Sub DeletePGT(ByVal ModuleId As Integer,ByVal ItemId As Integer)
#End Region
End Class
End Namespace
|
| |
|
|
| |
|
|
|
I didn't see in there anywhere that you are settings the Settings values. Are you using a Settings page somewhere to do this? You'll want to call ModuleController.UpdateModuleSetting or .UpdateTabModuleSetting to get that persisted to where you can retrieve it in your view control.
Hope it helps,
|
| |
|
|
| |