From 93d909411a3a26cf2e65ecc87deff2bede4777f8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 25 Apr 2020 23:12:15 +0200
Subject: Renormalize some dt's to local time, solving owerflow.

Previously, if a DTEND = 01:00+02:00, but was given in UTC (23:00Z) then
the fact that DTEND was in different dates lead to some problems.
---
 module/output/html.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'module/output')

diff --git a/module/output/html.scm b/module/output/html.scm
index 5e09d30f..70c3b8a9 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -186,12 +186,12 @@
                                                   "unknown"))
                 ,(when (and (attr ev 'PARTSTAT) (string= "TENTATIVE" (attr ev 'PARTSTAT)))
                    " tentative")
-                ,(when (date<? (as-date (attr ev 'DTSTART)) date)
+                ,(when (date<? (as-date (get-datetime (attr ev 'DTSTART))) date)
                    " continued")
                 ;; TODO all day events usually have the day after as DTEND.
                 ;; So a whole day event the 6 june would have a DTEND of the
                 ;; 7 june.
-                ,(when (date<? date (as-date (attr ev 'DTEND)))
+                ,(when (date<? date (as-date (get-datetime (attr ev 'DTEND))))
                    " continuing"))
               (style ,style))
            (div (@ (class "event-inner"))
-- 
cgit v1.2.3