From f73233de48cde641e2982a045326a1a4437539b8 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 19 Oct 2007 13:12:30 +0000
Subject: [PATCH] fix broken ical link

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

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index d4587e298..ae23208b1 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -5,6 +5,7 @@
  - fix: Image uploads fail when not using preload.perl
  - fix: Workflow activities don't pick up new default values
  - safely allow sorting by more fields in collaboration systems
+ - fix: iCal link on calendar doesn't work
 
 7.4.10
  - fix: Graphs aren't sized properly using GraphicsMagick
diff --git a/lib/WebGUI/Asset/Wobject/Calendar.pm b/lib/WebGUI/Asset/Wobject/Calendar.pm
index b1fc5bb69..c0899431f 100644
--- a/lib/WebGUI/Asset/Wobject/Calendar.pm
+++ b/lib/WebGUI/Asset/Wobject/Calendar.pm
@@ -975,7 +975,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},
                               );