diff options
| author | Pjotr Prins | 2025-08-02 11:35:33 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2025-08-02 11:35:33 +0200 |
| commit | 8f402821b743edae1e69cd8bf0736dcfcdd97d55 (patch) | |
| tree | 1f594d01ae66e468100c9d72183d0807129ba3d0 | |
| parent | 570630f8810283077888152ab1f4ca035a60d1e9 (diff) | |
| download | gn-guile-8f402821b743edae1e69cd8bf0736dcfcdd97d55.tar.gz | |
API: add .json extension
| -rw-r--r-- | web/webserver.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index 00a3c4c..b0070c3 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -245,9 +245,16 @@ otherwise search for set/group data" (render-brand path)) ; branding route for /home/aging, /home/msk etc (('GET "dataset" "bxd-publish" "list") (render-json (get-bxd-publish))) - (('GET "dataset" "bxd-publish" "values" dataid) - (render-json (get-bxd-publish-values dataid))) - (('GET "dataset" "bxd-publish" "mapping" "values" dataid) + (('GET "dataset" "bxd-publish" "values" page) + (match (string->list page) + ((dataid ... + #\. + #\j + #\s + #\o + #\n) + (render-json (get-bxd-publish-values (list->string dataid)))))) + (('GET "dataset" "bxd-publish" "mapping" "values" (string-append dataid ".json")) (render-json (get-bxd-publish-values dataid #:used-for-mapping? #t))) (('GET "doc" "species.html") (render-doc "doc" "species.html" |