From 2457c88afa1013dcefc6459864919f8855c6ce07 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 4 Oct 2007 16:58:25 +0000
Subject: [PATCH] ical should be generated for next 30 days, not prev

---
 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 907777970..c18731196 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -5,6 +5,7 @@
  - fix: purging old asset revisions on large sites never completes
  - fix: Can't add assets when not using preload.perl.
  - fix: graphing doesn't work with GraphicsMagick
+ - fix: Calendar generated iCal for last 30 days instead of next 30 days
 
 7.4.8
  - fix: Syndicated Content doesn't display all items with multiple feeds in interleaved mode
diff --git a/lib/WebGUI/Asset/Wobject/Calendar.pm b/lib/WebGUI/Asset/Wobject/Calendar.pm
index 29257cca5..fa87b1f04 100644
--- a/lib/WebGUI/Asset/Wobject/Calendar.pm
+++ b/lib/WebGUI/Asset/Wobject/Calendar.pm
@@ -1510,7 +1510,7 @@ sub www_ical {
         #}
         #else
         #{
-            $dt_start = WebGUI::DateTime->new($self->session, time-60*60*24*30)->set_time_zone($session->user->profileField("timeZone"));
+            $dt_start = WebGUI::DateTime->new($self->session, time)->set_time_zone($session->user->profileField("timeZone"));
         #}
     }
     else {