From ff21db13b3243c31a52462aad4e0faaefc55a239 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Thu, 10 Aug 2023 08:33:01 +0200
Subject: Quick hack for meta

---
 web/webserver.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

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
-- 
cgit v1.2.3