From 9ad0793eb477611c700f4a5b02f60ac793bfae96 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 30 Jul 2025 14:31:42 +0200
Subject: Create endpoint for mappable BXD values as
 dataset/bxd-publish/mapping/values

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

(limited to 'web')

diff --git a/web/webserver.scm b/web/webserver.scm
index 5de4ac4..90e1441 100644
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -61,6 +61,12 @@ otherwise search for set/group data"
   "Return a list of published datasets by their record ID. We add the dataset ID and phenotype ID for quick reference"
   (list->vector (get-bxd-publish-list)))
 
+(define (get-bxd-publish-values dataid)
+  (list->vector (get-bxd-publish-values-list dataid)))
+
+(define (get-bxd-publish-mapping-values dataid)
+  (list->vector (get-bxd-publish-values-list dataid #:used-for-mapping? #t)))
+
 (define (get-gene-aliases genename)
   "Return a vector of aliases for genename."
   (list->vector (memo-sparql-wd-gene-aliases (memo-sparql-wd-geneids genename))))
@@ -242,6 +248,12 @@ 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" "values" dataid)
+     (render-json (get-bxd-publish-values dataid)))
+    (('GET "dataset" "bxd-publish" "mapping" "values" dataid)
+     (render-json (get-bxd-publish-mapping-values dataid)))
     (('GET "doc" "species.html")
      (render-doc "doc" "species.html"
                  (get-species-meta)))
-- 
cgit 1.4.1