From dcc41148727ec5f68fbeb0504a295981728327a1 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 19 Aug 2023 12:27:34 +0200
Subject: Adding test infrastructure and reorganizing modules

---
 web/webserver.scm | 17 +----------------
 1 file changed, 1 insertion(+), 16 deletions(-)

(limited to 'web')

diff --git a/web/webserver.scm b/web/webserver.scm
index 26b4a75..485d334 100755
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -51,21 +51,6 @@
      (,(mk-url "datasets")."Get a list of datasets")))))
 
 
-
-; (define (wd-species-info wd)
-;  )
-
-
-(define (get-expanded-taxon-meta id)
-  "Get information on a specific species, e.g. mouse"
-  `(("info" . ,id)
-    ("doc" . ,(mk-doc id))
-    ("meta" . ,(mk-meta id))
-    ("data" . ,(mk-data id))
-    ("up" . ,(mk-meta "species"))
-  ))
-
-
 ;; ---- REST API web server handler
 
 (define (not-found2 request)
@@ -119,7 +104,7 @@
      (let ([names (get-species-shortnames (get-expanded-species))])
        (match (string->list id)
 	 [(name ... #\. #\m #\e #\t #\a #\. #\j #\s #\o #\n) (render-json (get-expanded-taxon-meta (list->string name)))]
-	 [(name ... #\. #\j #\s #\o #\n) (render-json (get-expanded-species1 (list->string name)))]
+	 [(name ... #\. #\j #\s #\o #\n) (render-json (get-expanded-taxon-data (list->string name)))]
 	 [rest (render-json "NOP")])))
     (_ (not-found (request-uri request)))
     ))
-- 
cgit v1.2.3