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/html/view/search.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/html/view/search.scm')
| -rw-r--r-- | module/calp/html/view/search.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/calp/html/view/search.scm b/module/calp/html/view/search.scm index 00f00bb0..fd5000df 100644 --- a/module/calp/html/view/search.scm +++ b/module/calp/html/view/search.scm @@ -24,6 +24,8 @@ ,(when has-query? (with-output-to-string (lambda () (pretty-print search-term)))))) + (label (@ (for "onlyfuture")) "limit to future occurences") + (input (@ (name "onlyfuture") (id "onlyfuture") (type checkbox))) (input (@ (type submit)))) ,@(if errors `((h2 "Error searching") |