diff options
-rwxr-xr-x | dump.scm | 24 |
1 files changed, 0 insertions, 24 deletions
@@ -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)))))) |