diff options
Diffstat (limited to 'web/webserver.scm')
-rw-r--r-- | web/webserver.scm | 12 |
1 files changed, 12 insertions, 0 deletions
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))) |