aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdump.scm24
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))))))