Remove dump-case-attributes

This information is already stored in LMDB.

* dump.scm (dump-case-attributes): Delete.
(main)(<dump-case-attributes>): Ditto.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 0 insertions, 24 deletions

diff --git a/dump.scm b/dump.scm
index 34e5666..43d6cda 100755
--- a/dump.scm
+++ b/dump.scm
@@ -727,29 +727,6 @@ is a <table> object."
                             (table-columns table))))
               tables)))
 
-(define-dump dump-case-attributes
-  (tables (InbredSet
-           (join Species "ON InbredSet.SpeciesId = Species.Id")
-           (join Strain "ON Strain.SpeciesId = Species.Id")
-           (join CaseAttributeXRefNew
-                 "ON CaseAttributeXRefNew.StrainId = Strain.Id")
-           (join CaseAttribute
-                 "ON CaseAttributeXRefNew.CaseAttributeId = CaseAttribute.Id"))
-          (string-join
-           '("WHERE CaseAttribute.Name IS NOT NULL"
-             "GROUP BY CaseAttribute.Name"
-             "ORDER BY CaseAttribute.Name")))
-  (schema-triples
-   (gn:name rdfs:range rdfs:Literal)
-   (gn:inbredSet rdfs:range rdfs:Literal)
-   (gn:description rdfs:range gn:species))
-  (triples (string->identifier "caseAttribute" (field CaseAttribute Name))
-    (set rdf:type 'gn:caseAttribute)
-    (set gn:name (field CaseAttribute Name))
-    (set gn:inbredSet (field InbredSet Name InbredSetName))
-    (set gn:description (field CaseAttribute Description))
-    (set gn:caseAttributeId (field CaseAttribute Id))))
-
 (define-dump dump-groups
   (tables (InbredSet
            (left-join Species "USING (SpeciesId)"))
@@ -847,6 +824,5 @@ is a <table> object."
        (dump-gene-chip db)
        (dump-info-files db)
        (dump-schema db)
-       (dump-case-attributes db)
        (dump-groups db)
        (import-generif (assq-ref %connection-settings 'generif-data-file))))))