aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-05-04 18:35:59 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-05-04 18:35:59 +0200
commite0b058a1b3a6e1552c2aa5c1a24ed82a8c8e1e7b (patch)
treeb1b6db13ce76de79582f52857dc5b36894e526e8
parentRemove TODO about bad week numbers. (diff)
downloadcalp-e0b058a1b3a6e1552c2aa5c1a24ed82a8c8e1e7b.tar.gz
calp-e0b058a1b3a6e1552c2aa5c1a24ed82a8c8e1e7b.tar.xz
Fix /today? when intervaltype is something else.
-rw-r--r--module/output/html.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm
index d2762f46..eb675005 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -690,7 +690,8 @@
href: (string-append
"/today?" (case intervaltype
[(month) "view=month"]
- [(week) "view=week"]))
+ [(week) "view=week"]
+ [else ""]))
"idag"))
(div (@ (class "jump-to"))