diff options
Diffstat (limited to 'web/webserver.scm')
| -rw-r--r-- | web/webserver.scm | 11 |
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))) |