diff options
| -rwxr-xr-x | web/webserver.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index 2619319..a5671dc 100755 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -170,6 +170,13 @@ (define (get-species-shortnames recs) (map (lambda r (assoc-ref (car r) "shortName")) recs)) +(define (get-species-meta2 recs) + "Return a list of short names and expand them to URIs" + (map (lambda r + (let ([shortname (assoc-ref (car r) "shortName")]) + (cons shortname (mk-meta shortname)))) recs) + ) + (define (get-species-links recs) "Return a list of short names and expand them to URIs" (map (lambda r @@ -186,6 +193,7 @@ ("doc" . ,(mk-doc "species")) ("meta" . ,(mk-meta "species")) ("rec" . ,(mk-rec "species")) + ("meta" . ,(get-species-meta2 recs)) ("links" . ,(get-species-links recs))))) ;; ---- REST API web server handler |