diff options
Diffstat (limited to 'web/webserver.scm')
| -rw-r--r-- | web/webserver.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index 880ab49..5de4ac4 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -20,6 +20,7 @@ (gn cache memoize) (web gn-uri) (gn db sparql) + (gn data dataset) (gn data species) (gn data group) (web sxml) @@ -56,6 +57,10 @@ otherwise search for set/group data" (if taxoninfo taxoninfo (cdr (get-group-data id))))) +(define (get-bxd-publish) + "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-gene-aliases genename) "Return a vector of aliases for genename." (list->vector (memo-sparql-wd-gene-aliases (memo-sparql-wd-geneids genename)))) @@ -235,6 +240,8 @@ otherwise search for set/group data" (render-static-image (string-append (dirname (current-filename)) "/static/images/" fn))) (('GET "home" path) (render-brand path)) ; branding route for /home/aging, /home/msk etc + (('GET "dataset" "bxd-publish" "list") + (render-json (get-bxd-publish))) (('GET "doc" "species.html") (render-doc "doc" "species.html" (get-species-meta))) |