From 68fa0161c56284abb564d229dae756a2df3931aa Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@webgui-svn>
Date: Wed, 2 May 2007 13:14:22 +0000
Subject: [PATCH] Fixed a calendar bug wher the iCal feed url was corrupt

---
 docs/changelog/7.x.x.txt             | 2 ++
 lib/WebGUI/Asset/Wobject/Calendar.pm | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 972ea4c4a..d1b86b235 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -19,6 +19,8 @@
  - fix: Asset tree cut and paste not handled by search (Martin Kamerbeek /
    Oqapi)
     http://www.plainblack.com/bugs/tracker/asset-tree-cut-and-paste-not-handled-by-search
+ - fix: Fixed a bug where calendars would generate corrupt iCal feed urls
+   (Martin Kamerbeek / Oqapi)
 
 7.3.15
  - Added more documentation to WebGUI.pm
diff --git a/lib/WebGUI/Asset/Wobject/Calendar.pm b/lib/WebGUI/Asset/Wobject/Calendar.pm
index e0c933179..16d01bb8f 100644
--- a/lib/WebGUI/Asset/Wobject/Calendar.pm
+++ b/lib/WebGUI/Asset/Wobject/Calendar.pm
@@ -928,7 +928,7 @@ sub view {
     my $params        = {};    
     $params->{type}   = $form->param("type");
     $params->{start}  = $form->param("start");
-    
+   
     ### TODO: Parse user input for sanity.
     # {start} must be of the form: YYYY-MM-DD%20HH:MM:SS
     # {type} must be "month", "week", or "day"
@@ -974,7 +974,7 @@ sub view {
     $var->{"urlSearch"}     = $self->getSearchUrl;
     $var->{"urlPrint"}      = $self->getUrl("type=".$params->{type}.";start=".$params->{start}.";print=1");
     $var->{"urlIcal"}	    = $self->getUrl(
-                                    sprintf "func=ical;type=%s;start=%d",
+                                    sprintf "func=ical;type=%s;start=%s",
                                         $params->{type},
                                         $params->{start},
                               );