diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-25 23:12:15 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-25 23:12:15 +0200 |
commit | 93d909411a3a26cf2e65ecc87deff2bede4777f8 (patch) | |
tree | ea1bd2b6e37767cb8c69719965138ef441be7992 /module/output | |
parent | Add exception handler to description filter. (diff) | |
download | calp-93d909411a3a26cf2e65ecc87deff2bede4777f8.tar.gz calp-93d909411a3a26cf2e65ecc87deff2bede4777f8.tar.xz |
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.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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")) |