Quick hack for meta

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