aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-12-01 16:54:14 +0530
committerArun Isaac2021-12-01 16:55:38 +0530
commit45274878cc0b3b19fbcfe50e6a3905cc30e2ba88 (patch)
tree6927332d48888f91b945034d6951da77cc520446
parent218f168762ff97529be83670ddea008ddfbf81a5 (diff)
downloadgn-transform-databases-45274878cc0b3b19fbcfe50e6a3905cc30e2ba88.tar.gz
Do not link inbred-set to mapping-method.
Not all inbred sets have a mapping method, and the mapping method of the inbred set has, so far, not been used anywhere. * dump.scm (mapping-method-name->id, dump-mapping-method): Mark as unused. (dump-inbred-set): Do not link inbred-set to mapping-method.
-rwxr-xr-xdump.scm10
1 files changed, 4 insertions, 6 deletions
diff --git a/dump.scm b/dump.scm
index 59e1d97..90563c7 100755
--- a/dump.scm
+++ b/dump.scm
@@ -175,9 +175,11 @@
db
"SELECT Species.FullName, Strain.Name, Strain.Name2, Strain.Symbol, Strain.Alias FROM Strain JOIN Species ON Strain.SpeciesId = Species.SpeciesId"))
+;; TODO: This function is unused. Remove if not required.
(define (mapping-method-name->id name)
(string->symbol (string-append "gn:mappingMethod" name)))
+;; TODO: This function is unused. Remove if not required.
(define (dump-mapping-method db)
(sql-for-each (match-lambda
(((_ . name))
@@ -198,18 +200,14 @@
(('gn:binomialName . binomial-name)
(cons 'gn:inbredSetOfSpecies
(binomial-name->species-id binomial-name)))
- (('gn:mappingMethodName . mapping-method-name)
- (cons 'gn:inbredSetMappingMethod
- (mapping-method-name->id mapping-method-name)))
(x x))
(process-metadata-alist alist))
id)))
db
"SELECT InbredSet.Name, InbredSet.FullName, GeneticType, Family,
-Species.FullName AS BinomialName, MappingMethod.Name AS MappingMethodName
+Species.FullName AS BinomialName
FROM InbredSet
-INNER JOIN Species USING (SpeciesId)
-INNER JOIN MappingMethod ON InbredSet.MappingMethodId = MappingMethod.Id"))
+INNER JOIN Species USING (SpeciesId)"))
(define (phenotype-id->id id)
(string->symbol (string-append "gn:phenotype" (number->string id))))