diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-27 20:58:31 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-27 20:58:31 +0200 |
| commit | 8d2f64e441c041f317130f372760f4e5a76a171f (patch) | |
| tree | dc30b12ae414a367f52a9e5116586948d2a234fb /module/calp/html/view/search.scm | |
| parent | Add search field. (diff) | |
| download | calp-8d2f64e441c041f317130f372760f4e5a76a171f.tar.gz calp-8d2f64e441c041f317130f372760f4e5a76a171f.tar.xz | |
Propagate errors to HTML search page.
Diffstat (limited to 'module/calp/html/view/search.scm')
| -rw-r--r-- | module/calp/html/view/search.scm | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/module/calp/html/view/search.scm b/module/calp/html/view/search.scm index 3141fa11..00f00bb0 100644 --- a/module/calp/html/view/search.scm +++ b/module/calp/html/view/search.scm @@ -10,6 +10,7 @@ ) (define-public (search-result-page + errors has-query? search-term search-result page paginator q=) (xhtml-doc (@ (lang sv)) @@ -24,15 +25,16 @@ (with-output-to-string (lambda () (pretty-print search-term)))))) (input (@ (type submit)))) - (h2 "Result (page " ,page ")") - (ul - ,@(compact-event-list search-result)) - (div (@ (class "paginator")) - ,@(paginator->list - paginator - (lambda (p) (if (= p page) - `(span ,p) - `(a (@ (href "?" ,q= "&p=" ,p)) ,p))) - (lambda (p) `(a (@ (href "?" ,q= "&p=" ,p)) "»")))) - ))) - + ,@(if errors + `((h2 "Error searching") + (div (@ (class "error")) + (pre ,errors))) + `((h2 "Result (page " ,page ")") + (ul ,@(compact-event-list search-result)) + (div (@ (class "paginator")) + ,@(paginator->list + paginator + (lambda (p) (if (= p page) + `(span ,p) + `(a (@ (href "?" ,q= "&p=" ,p)) ,p))) + (lambda (p) `(a (@ (href "?" ,q= "&p=" ,p)) "»"))))))))) |