From b1db013cc01c94e27edf982be9b027a2b0bb9712 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 18 Nov 2023 12:33:22 +0100
Subject: Get first BXD dataset for precompute

---
 gn/data/strains.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'gn/data')

diff --git a/gn/data/strains.scm b/gn/data/strains.scm
index 241ecda..39fe71e 100644
--- a/gn/data/strains.scm
+++ b/gn/data/strains.scm
@@ -7,8 +7,9 @@
   #:use-module (ice-9 string-fun)
   ;; #:use-module (gn db sparql)
   #:use-module (dbi dbi)
-  #:use-module (gn db mysql)
   #:use-module (gn data group)
+  #:use-module (gn db mysql)
+  #:use-module (gn util convert)
   #:use-module (web gn-uri)
 
   #:export (
@@ -24,7 +25,7 @@ map? will say whether the strains/individuals are used for mapping.
 "
   (call-with-db
    (lambda (db)
-     (dbi-query db (string-append "SELECT StrainId,Strain.Name FROM Strain, StrainXRef WHERE StrainXRef.StrainId = Strain.Id AND StrainXRef.InbredSetId = " (format #f "~d" inbred-set)
+     (dbi-query db (string-append "SELECT StrainId,Strain.Name FROM Strain, StrainXRef WHERE StrainXRef.StrainId = Strain.Id AND StrainXRef.InbredSetId = " (int-to-string inbred-set)
                                   (if map?
                                       " AND Used_for_mapping='Y'"
                                       "")
-- 
cgit v1.2.3