diff options
| author | Pjotr Prins | 2023-11-18 12:33:22 +0100 |
|---|---|---|
| committer | Pjotr Prins | 2023-11-18 12:33:22 +0100 |
| commit | b1db013cc01c94e27edf982be9b027a2b0bb9712 (patch) | |
| tree | 9aa73c1c8bbff2f7659f229c08b395788c6f33ec /gn/data/strains.scm | |
| parent | 06f941636a99904671c89916e17f28de4b2cd07e (diff) | |
| download | gn-guile-b1db013cc01c94e27edf982be9b027a2b0bb9712.tar.gz | |
Get first BXD dataset for precompute
Diffstat (limited to 'gn/data/strains.scm')
| -rw-r--r-- | gn/data/strains.scm | 5 |
1 files changed, 3 insertions, 2 deletions
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'" "") |