diff options
Diffstat (limited to 'web/webserver.scm')
| -rw-r--r-- | web/webserver.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index c242b9d..28e33cd 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -24,6 +24,7 @@ (gn data dataset) (gn data species) (gn data group) + (gn runner gemma) (web sxml) (web view view) (web view doc) @@ -261,8 +262,8 @@ otherwise search for set/group data" (".json" (render-json (get-bxd-publish-values (basename page ".json")))) (".tsv" (render-string "TEST1\nTEST2")) - (".gemma" (write-pheno-file page (get-bxd-publish-values (basename page ".gemma")))) - (else (display "ERROR: unknown file type")))) + (".gemma" (render-string (string-join (gemma-pheno-txt "BXD" (get-bxd-publish-values (basename page ".gemma"))) ""))) + (else (display "ERROR: unknown file extension")))) (('GET "dataset" "bxd-publish" "mapping" "values" (string-append dataid ".json")) (render-json (get-bxd-publish-values dataid #:used-for-mapping? #t))) (('GET "doc" "species.html") |