aboutsummaryrefslogtreecommitdiff
path: root/gn/data
diff options
context:
space:
mode:
Diffstat (limited to 'gn/data')
-rw-r--r--gn/data/strains.scm5
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'"
"")