From 45274878cc0b3b19fbcfe50e6a3905cc30e2ba88 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 1 Dec 2021 16:54:14 +0530
Subject: 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.
---
 dump.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'dump.scm')

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))))
-- 
cgit v1.2.3