with a big thanks to rob murray, a version of this module for dnn 2 with a sql data provider is now available on my site.

http://www.arswebdesign.com/DesktopDefault.aspx?tabid=299

andy

Andy,

I get these error when trying to install the PA:

1.) I know how to fix this, just thought I would bring it to your attention:

Warning File specified in the dnn could not be found in the zip file: install.txt
Warning File specified in the dnn could not be found in the zip file: readme.txt
Warning File specified in the dnn could not be found in the zip file: version.txt

2.)Notice how it says .A.d.d.L.T.P.C.a.l.e.n.d.a.r.I.t.e.m. and .d.b.o. Is this behavior expected?

StartJob Begin Sql execution
Info Executing ltpcalendar.dnn
StartJob Start Sql execution: ltpcalendar.sql file
Failure SQL Execution resulted in following Exceptions: System.Data.SqlClient.SqlException: Line 1: Incorrect syntax near '?'. '.d.b.o.' is an invalid name because it contains a NULL character. '.A.d.d.L.T.P.C.a.l.e.n.d.a.r.I.t.e.m.' is an invalid name because it contains a NULL character. '.d.b.o.' is an invalid name because it contains a NULL character. '.D.e.l.e.t.e.L.T.P.C.a.l.e.n.d.a.r.I.t.e.m.' is an invalid name because it contains a NULL character. '.d.b.o.' is an invalid name because it contains a NULL character. '.G.e.t.L.T.P.C.a.l.e.n.d.a.r.I.t.e.m.s.' is an invalid name because it contains a NULL character. '.d.b.o.' is an invalid name because it contains a NULL character. '.G.e.t.S.i.n.g.l.e.L.T.P.C.a.l.e.n.d.a.r.I.t.e.m.' is an invalid name because it contains a NULL character. '.d.b.o.' is an invalid name because it contains a NULL character. '.U.p.d.a.t.e.L.T.P.C.a.l.e.n.d.a.r.I.t.e.m.' is an invalid name because it contains a NULL character. at System.Data.SqlClient.SqlCommand.ExecuteNonQuery() at Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(SqlConnection connection, CommandType commandType, String commandText, SqlParameter[] commandParameters) at Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(String connectionString, CommandType commandType, String commandText, SqlParameter[] commandParameters) at Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(String connectionString, CommandType commandType, String commandText) at DotNetNuke.Data.SqlDataProvider.ExecuteScript(String Script, Boolean UseTransactions) in C:\Inetpub\wwwroot\dnnv2\providers\DataProviders\SqlDataProvider\SqlDataProvider.vb:line 158 ?/****** Object: Stored Procedure dbo.AddLTPCalendarItem Script Date: 11/18/2003 6:42:50 PM ******/ if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[AddLTPCalendarItem]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[AddLTPCalendarItem] GO /****** Object: Stored Procedure dbo.DeleteLTPCalendarItem Script Date: 11/18/2003 6:42:50 PM ******/ if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[DeleteLTPCalendarItem]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[DeleteLTPCalendarItem] GO /****** Object: Stored Procedure dbo.GetLTPCalendarItems Script Date: 11/18/2003 6:42:50 PM ******/ if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GetLTPCalendarItems]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[GetLTPCalendarItems] GO /****** Object: Stored Procedure dbo.GetSingleLTPCalendarItem Script Date: 11/18/2003 6:42:50 PM ******/ if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GetSingleLTPCalendarItem]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[GetSingleLTPCalendarItem] GO /****** Object: Stored Procedure dbo.UpdateLTPCalendarItem Script Date: 11/18/2003 6:42:50 PM ******/ if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[UpdateLTPCalendarItem]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[UpdateLTPCalendarItem] GO SET QUOTED_IDENTIFIER ON GO SET ANSI_NULLS ON GO /****** Object: Stored Procedure dbo.AddLTPCalendarItem Script Date: 11/18/2003 6:42:51 PM ******/ CREATE procedure dbo.AddLTPCalendarItem @ModuleID int, @Description nvarchar(2000), @DateTime datetime, @Title nvarchar(100), @ExpireDate datetime = null, @UserName nvarchar(200), @Every int, @Period char(1), @IconFile nvarchar(256), @AltText nvarchar(50) as insert ModuleEvents ( ModuleID, Description, DateTime, Title, ExpireDate, CreatedByUser, CreatedDate, Every, Period, IconFile, AltText ) values ( @ModuleID, @Description, @DateTime, @Title, @ExpireDate, @UserName, getdate(), @Every, @Period, @IconFile, @AltText ) GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_NULLS ON GO /****** Object: Stored Procedure dbo.DeleteLTPCalendarItem Script Date: 11/18/2003 6:42:51 PM ******/ CREATE procedure dbo.DeleteLTPCalendarItem @ItemID int as delete from ModuleEvents where ItemID = @ItemID GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_NULLS ON GO /****** Object: Stored Procedure dbo.GetLTPCalendarItems Script Date: 11/18/2003 6:42:51 PM ******/ CREATE procedure dbo.GetLTPCalendarItems @ModuleID int, @StartDate datetime = null, @EndDate datetime = null as -- if no start date is given, use today declare @localStartDate as datetime if @StartDate is null begin set @localStartDate = getdate() end else begin set @localStartDate = @StartDate end -- if no end date is given, use the last date on file for the module declare @localEndDate as datetime if @EndDate is null begin set @localEndDate = (SELECT TOP 1 DateTime FROM ModuleEvents WHERE (ModuleID = @ModuleID) ORDER BY DateTime DESC) end else begin set @localEndDate = @EndDate end declare @MaxWidth int SELECT @MaxWidth = MAX(Files.Width) FROM ModuleEvents LEFT OUTER JOIN Files ON ModuleEvents.IconFile = Files.FileName WHERE (ModuleEvents.ItemID IN (SELECT ItemID FROM ModuleEvents WHERE (ModuleID = @ModuleID) AND (ExpireDate > GETDATE() OR ExpireDate IS NULL) AND (Period IS NULL) AND (DateTime >= @localStartDate) AND (DateTime <= @localEndDate) OR (ModuleID = @ModuleID) AND (ExpireDate > GETDATE() OR ExpireDate IS NULL) AND (Period IS NOT NULL))) SELECT ItemID, Description, DateTime, Title, ExpireDate, CreatedByUser, CreatedDate, Every, Period, IconFile, AltText, 'MaxWidth' = isnull(@MaxWidth,0) FROM ModuleEvents WHERE (ModuleID = @ModuleID) AND (ExpireDate > GETDATE() OR ExpireDate IS NULL) AND (Period IS NULL) AND (DateTime >= @localStartDate) AND (DateTime <= @localEndDate) OR (ModuleID = @ModuleID) AND (ExpireDate > GETDATE() OR ExpireDate IS NULL) AND (Period IS NOT NULL) ORDER BY DateTime GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_NULLS ON GO /****** Object: Stored Procedure dbo.GetSingleLTPCalendarItem Script Date: 11/18/2003 6:42:51 PM ******/ CREATE procedure dbo.GetSingleLTPCalendarItem @ItemID int, @ModuleId int as select ItemID, Description, DateTime, Title, ExpireDate, 'CreatedByUser' = FirstName + ' ' + LastName, ModuleEvents.CreatedDate, Every, Period, IconFile, AltText from ModuleEvents left outer join Users on ModuleEvents.CreatedByUser = Users.UserId where ItemID = @ItemID and ModuleId = @ModuleId GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_NULLS ON GO /****** Object: Stored Procedure dbo.UpdateLTPCalendarItem Script Date: 11/18/2003 6:42:51 PM ******/ CREATE procedure dbo.UpdateLTPCalendarItem @ItemId int, @Description nvarchar(2000), @DateTime datetime, @Title nvarchar(100), @ExpireDate datetime = null, @UserName nvarchar(200), @Every int, @Period char(1), @IconFile nvarchar(256), @AltText nvarchar(50) as update ModuleEvents set Description = @Description, DateTime = @DateTime, Title = @Title, ExpireDate = @ExpireDate, CreatedByUser = @UserName, CreatedDate = getdate(), Every = @Every, Period = @Period, IconFile = @IconFile, AltText = @AltText where ItemId = @ItemId GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO
EndJob End Sql execution: ltpcalendar.sql file
EndJob Finished Sql execution


Thanks in advance for your help, and everyones work that put this module together!

Tony

this obviously relates to the DNN 2.0 PA. truth to be told, i've been too busy to do much more than install DNN 2 and see what it does just after beta 3 was released. i have done no work with it at all (which is a major part of the reason why i haven't ported any of my modules over). rob kindly provided the update and i posted it - since i don't have an install to test it on, i assumed everything was in order. yes, i know what should be done with the dnn script to fix the first item, but as far as the second, i have to admit to having absolutely no clue. hopefully somebody can help us out here.

thanks,
andy

I send Andy a new xip file with the fixes. I don't know when he will post it, but these fixes will repair it for you.

Change the DNN file to:

<module>
<folder>DesktopModules/LTPCalendar</folder>
<friendlyname>LTPCalendar</friendlyname>
<desktopsrc>LTPCalendar.ascx</desktopsrc>
<mobilesrc></mobilesrc>
<editsrc>EditLTPCalendar.ascx</editsrc>
<description>Variation of the standard Events module that provides a list view with a user-entered limit (days, months, quarters or years) or a calendar view where dates with events are shaded and all dates are linked. Clicking on a date displays events, if any, for that date. Developed initially for Learning Technology Partners.</description>
<editmoduleicon></editmoduleicon>
<uninstall>LTPCalendar.uninstall</uninstall>
<files>
<file>
<name>LTPCalendar.ascx</name>
</file>
<file>
<name>EditLTPCalendar.ascx</name>
</file>
<file>
<name>LTPCalendar.dll</name>
</file>
<file>
<name>LTPCalendar.sql</name>
</file>
</files>
</module>





Change the SQL file to:

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[AddLTPCalendarItem]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[AddLTPCalendarItem]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[DeleteLTPCalendarItem]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[DeleteLTPCalendarItem]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GetLTPCalendarItems]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[GetLTPCalendarItems]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GetSingleLTPCalendarItem]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[GetSingleLTPCalendarItem]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[UpdateLTPCalendarItem]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[UpdateLTPCalendarItem]
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE procedure dbo.AddLTPCalendarItem
@ModuleID int,
@Description nvarchar(2000),
@DateTime datetime,
@Title nvarchar(100),
@ExpireDate datetime = null,
@UserName nvarchar(200),
@Every int,
@Period char(1),
@IconFile nvarchar(256),
@AltText nvarchar(50)
as
insert ModuleEvents (
ModuleID,
Description,
DateTime,
Title,
ExpireDate,
CreatedByUser,
CreatedDate,
Every,
Period,
IconFile,
AltText
)
values (
@ModuleID,
@Description,
@DateTime,
@Title,
@ExpireDate,
@UserName,
getdate(),
@Every,
@Period,
@IconFile,
@AltText
)

GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE procedure dbo.DeleteLTPCalendarItem
@ItemID int
as
delete
from ModuleEvents
where ItemID = @ItemID

GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE procedure dbo.GetLTPCalendarItems
@ModuleID int,
@StartDate datetime = null,
@EndDate datetime = null
as
-- if no start date is given, use today
declare @localStartDate as datetime
if @StartDate is null
begin
set @localStartDate = getdate()
end
else
begin
set @localStartDate = @StartDate
end
-- if no end date is given, use the last date on file for the module
declare @localEndDate as datetime
if @EndDate is null
begin
set @localEndDate = (SELECT TOP 1 DateTime FROM ModuleEvents WHERE (ModuleID = @ModuleID) ORDER BY DateTime DESC)
end
else
begin
set @localEndDate = @EndDate
end
declare @MaxWidth int
SELECT @MaxWidth = MAX(Files.Width)
FROM ModuleEvents LEFT OUTER JOIN
Files ON ModuleEvents.IconFile = Files.FileName
WHERE (ModuleEvents.ItemID IN (SELECT ItemID FROM ModuleEvents WHERE (ModuleID = @ModuleID) AND (ExpireDate > GETDATE() OR ExpireDate IS NULL) AND (Period IS NULL) AND (DateTime >= @localStartDate) AND (DateTime <= @localEndDate) OR (ModuleID = @ModuleID) AND (ExpireDate > GETDATE() OR ExpireDate IS NULL) AND (Period IS NOT NULL)))
SELECT ItemID, Description, DateTime, Title, ExpireDate, CreatedByUser, CreatedDate, Every, Period, IconFile, AltText, 'MaxWidth' = isnull(@MaxWidth,0)
FROM ModuleEvents
WHERE (ModuleID = @ModuleID) AND (ExpireDate > GETDATE() OR
ExpireDate IS NULL) AND (Period IS NULL) AND (DateTime >= @localStartDate) AND (DateTime <= @localEndDate) OR
(ModuleID = @ModuleID) AND (ExpireDate > GETDATE() OR
ExpireDate IS NULL) AND (Period IS NOT NULL)
ORDER BY DateTime

GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE procedure dbo.GetSingleLTPCalendarItem
@ItemID int,
@ModuleId int
as
select ItemID,
Description,
DateTime,
Title,
ExpireDate,
'CreatedByUser' = FirstName + ' ' + LastName,
ModuleEvents.CreatedDate,
Every,
Period,
IconFile,
AltText
from ModuleEvents
left outer join Users on ModuleEvents.CreatedByUser = Users.UserId
where ItemID = @ItemID
and ModuleId = @ModuleId

GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE procedure dbo.UpdateLTPCalendarItem
@ItemId int,
@Description nvarchar(2000),
@DateTime datetime,
@Title nvarchar(100),
@ExpireDate datetime = null,
@UserName nvarchar(200),
@Every int,
@Period char(1),
@IconFile nvarchar(256),
@AltText nvarchar(50)
as
update ModuleEvents
set Description = @Description,
DateTime = @DateTime,
Title = @Title,
ExpireDate = @ExpireDate,
CreatedByUser = @UserName,
CreatedDate = getdate(),
Every = @Every,
Period = @Period,
IconFile = @IconFile,
AltText = @AltText
where ItemId = @ItemId

GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

This should repair your problem.

Thanks for your help rmurray, but I am still get the same error after replacing the sql database file. I am putting it in LPTCalendar\Database folder, but still have the same error message. You have any more ideas why? Thanks for your input.

Tony

the sql files were in unicode text. i converted them to ascii text and put an unpdated zip on my site.

andy

Thanks for the update. I don't know if it is just me, but I am still getting an error message, although not the same one with that update. Sorry, but I am an SQL moron. I now get the error:

SQL Execution resulted in following Exceptions: System.Data.SqlClient.SqlException: Line 2: Incorrect syntax near 'GO'. at System.Data.SqlClient.SqlCommand.ExecuteNonQuery() at Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(SqlConnection connection, CommandType commandType, String commandText, SqlParameter[] commandParameters) at Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(String connectionString, CommandType commandType, String commandText, SqlParameter[] commandParameters) at Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(String connectionString, CommandType commandType, String commandText) at DotNetNuke.Data.SqlDataProvider.ExecuteScript(String Script, Boolean UseTransactions) in C:\Inetpub\wwwroot\dnnv2\providers\DataProviders\SqlDataProvider\SqlDataProvider.vb:line 158 SET ANSI_NULLS ON GO

Thanks for your help.

Tony

looks like we have now come back around to an old problem in the sql script - there needs to be a trailing carriage return at the end. i have (again) revised the script and posted it to my site. while i haven't tested this, since it is now identical to the original install script (except for the comments), things should go smoothly.

a

Installed on dnn2.0.4/SQL, no install errors reported, critical error occurs when clicking on any dates in the calendar.

A critical error has occurred.
Method not found: System.Data.DataSet DotNetNuke.Globals.ConvertDataReaderToDataSet(System.Data.SqlClient.SqlDataReader).

I sent a new file to Andy tonight that fixes all of the above issues. I am sure he will have it up on his site soon.

Rob

Do the details of the clicked event offer a hyperlink we can use for whatever we want such as booking a room, or ordering a ticket, or just for more information?
It would be nice to incorporate the free hyperlink that you can pass parameters with.
Is the source code released with the module as well so we can incorporate any such changes?
I appreciate the hard work.

It is not included currently, but would be a nice touch. The source code is available with the download. I will see if I can come up with something along the lines you are looking for, when I get a chance! If you modify it to suit your needs, I would appreciate a copy.

Rob

I just downloaded the zip for DNN2 from arswebdesign and received the following error:

SQL Execution resulted in following Exceptions: System.Data.SqlClient.SqlException: Line 11: Incorrect syntax near ' '. at System.Data.SqlClient.SqlCommand.ExecuteNonQuery() at Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(SqlConnection connection, CommandType commandType, String commandText, SqlParameter[] commandParameters) at Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(String connectionString, CommandType commandType, String commandText, SqlParameter[] commandParameters) at Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteNonQuery(String connectionString, CommandType commandType, String commandText) at DotNetNuke.Data.SqlDataProvider.ExecuteScript(String Script, Boolean UseTransactions) CREATE procedure dbo.GetSingleLTPCalendarItem @ItemID int, @ModuleId int as select ItemID, Description, DateTime, Title, ExpireDate, 'CreatedByUser' = FirstName ' ' LastName, ModuleEvents.CreatedDate, Every, Period, IconFile, AltText from ModuleEvents left outer join Users on ModuleEvents.CreatedByUser = Users.UserId where ItemID = @ItemID and ModuleId = @ModuleId

I just tried too and got the same error. Anyone fixed this yet?

I repaired it a few weeks ago. I have sent it to the owner but it is not updated on the download site at this point. If anyone needs it, just send me an email.

Rob