Forward porting iCal end day date math fix.

docs/changelog/7.x.x.txt

@@ -3,6 +3,7 @@
  - fixed #10654: Story Archive: Search not working properly
  - fixed #10692: Unprivileged users can stop spectre
  - fixed #10720: Calendar iCal dates can exceed the number of days in a month
+ - fixed #9850: Calendar Import Incorrect
  - fixed search indexer concatenates keywords to content.
  - fixed Index Story fields for Search (headline, subtitle, location, byline, highlights, story)
  - fixed #10619: Pagination macro

lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm

@@ -273,7 +273,9 @@ sub execute {
                 elsif ($dtend =~ /(\d{4})(\d{2})(\d{2})/) {
                     my ($year, $month, $day) = $dtend =~ /(\d{4})(\d{2})(\d{2})/;
                     
-                    $properties->{endDate} = join "-",$year,$month,$day;
+                    my $endDateLet = WebGUI::DateTime->new( year => $year, month => $month, day => $day);
+                    $endDateLet->subtract( days => 1 );
+                    $properties->{endDate} = $endDateLet->toDatabaseDate;
                 }
                 # If we can't parse it, forget the whole event 
                 elsif ($dtend) {