From 254387c5c57fd02cf96133cdd0707c8a51143d67 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Tue, 13 May 2008 21:13:31 +0000
Subject: [PATCH] fixed: Calendar multi-day events exported wrong in ical feed

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

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index fd71d8d79..50fa1b368 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -59,6 +59,7 @@
  - fixed: Thingy: Importing data can fail with some internal field Ids
  - fixed: Thingy: Problem with add_url tmpl_var permissions
  - fixed: WeatherData asset is broken
+ - fixed: Calendar multi-day events exported wrong in ical feed
 
 7.5.10
  - fix: Syntax error in GetCsMail
diff --git a/lib/WebGUI/Asset/Event.pm b/lib/WebGUI/Asset/Event.pm
index 9e4b8775c..ce8d9120e 100644
--- a/lib/WebGUI/Asset/Event.pm
+++ b/lib/WebGUI/Asset/Event.pm
@@ -549,6 +549,7 @@ sub getIcalEnd {
     if ($self->isAllDay) {
         my $date = $self->get("endDate");
         $date =~ s/\D//g;
+        $date += 1;
         return $date;
     }
     else {