diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-07 16:34:04 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-07 16:34:04 +0200 |
| commit | caeaa38d2590f26f24a2b373b312eb12fad02ca2 (patch) | |
| tree | 0a655a7c9dae4773c3a531161a6731fd8e050176 | |
| parent | Fix parse-query. (diff) | |
| download | calp-caeaa38d2590f26f24a2b373b312eb12fad02ca2.tar.gz calp-caeaa38d2590f26f24a2b373b312eb12fad02ca2.tar.xz | |
Search page now xhtml.
| -rw-r--r-- | module/entry-points/server.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 74ae7de5..dd7175aa 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -280,14 +280,13 @@ (define search-result (execute-query query 0)) - (return '((content-type text/html #; application/xhtml+xml - )) + (return '((content-type application/xhtml+xml)) (with-output-to-string (lambda () (sxml->xml `(*TOP* (*PI* xml "version=\"1.0\" encoding=\"utf-8\"") - (html + (html (@ (xmlns "http://www.w3.org/1999/xhtml") (lang sv)) (head (title "Search results")) (body (h2 "Search term") |