From 6e1e275813fb55c9a53e37b004262f3070ef42b3 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 2 Aug 2025 13:31:43 +0200
Subject: API: endpoint gets trait values for BXD in GEMMA format

---
 web/webserver.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'web/webserver.scm')

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")
-- 
cgit 1.4.1