From dd647c753e150c22b12dff3c58fd65f1ccf6804d Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 8 Feb 2023 16:01:07 +0300 Subject: Remove dump-case-attributes This information is already stored in LMDB. * dump.scm (dump-case-attributes): Delete. (main)(): Ditto. Signed-off-by: Munyoki Kilyungi --- dump.scm | 24 ------------------------ 1 file changed, 24 deletions(-) (limited to 'dump.scm') diff --git a/dump.scm b/dump.scm index 34e5666..43d6cda 100755 --- a/dump.scm +++ b/dump.scm @@ -727,29 +727,6 @@ is a 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
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)))))) -- cgit v1.2.3