diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-02-01 13:19:39 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-02-01 13:19:39 +0100 |
commit | 41ed7571b4ee823e226de7f40dd49f46a5f8dff5 (patch) | |
tree | a43cb95d4de9681ad19dc960788424414a2f136a /module/calp/server/routes.scm | |
parent | Merge branch 'edit-rrule' (diff) | |
download | calp-41ed7571b4ee823e226de7f40dd49f46a5f8dff5.tar.gz calp-41ed7571b4ee823e226de7f40dd49f46a5f8dff5.tar.xz |
Add only-future checkbox on search page.
Diffstat (limited to 'module/calp/server/routes.scm')
-rw-r--r-- | module/calp/server/routes.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm index 368c7cb0..db4e819b 100644 --- a/module/calp/server/routes.scm +++ b/module/calp/server/routes.scm @@ -361,8 +361,12 @@ (prop event 'SUMMARY))))) )))))) - (GET "/search" (q p) - (define search-term (and=> q prepare-string)) + (GET "/search" (q p onlyfuture) + (define search-term + (if onlyfuture + `(and (date/-time<=? ,(current-datetime) (prop event 'DTSTART)) + ,(and=> q prepare-string)) + (and=> q prepare-string))) ;; keep original string for links below. Should guarantee that it's correct. (define q= (if (not q) |