API: create values endpoint that returns a dict only

1 files changed, 3 insertions, 8 deletions

diff --git a/web/webserver.scm b/web/webserver.scm
index 90e1441..00a3c4c 100644
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -61,11 +61,8 @@ 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-bxd-publish-values dataid #:key used-for-mapping?)
+  (get-bxd-publish-name-value-dict dataid #:used-for-mapping? used-for-mapping?))
 
 (define (get-gene-aliases genename)
   "Return a vector of aliases for genename."
@@ -250,10 +247,8 @@ otherwise search for set/group data"
      (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)))
+     (render-json (get-bxd-publish-values dataid  #:used-for-mapping? #t)))
     (('GET "doc" "species.html")
      (render-doc "doc" "species.html"
                  (get-species-meta)))