aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/dump-species-metadata.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm
index 6d8c2bd..a6be89a 100755
--- a/examples/dump-species-metadata.scm
+++ b/examples/dump-species-metadata.scm
@@ -106,10 +106,8 @@
(set gn-term:inbredSetOfMappingMethod (field MappingMethod Name))
(set gn-term:inbredSetCode (field InbredSet InbredSetCode))
(set gn-term:inbredSetOfSpecies
- (string->identifier "" (field Species FullName BinomialName)
- #:ontology "gn:"
- #:separator ""
- #:proc string-capitalize-first))
+ (string->binomial-name
+ (field Species FullName BinomialName)))
(set gn-term:genotype
(field ("IF ((SELECT PublishFreeze.Name FROM PublishFreeze WHERE PublishFreeze.InbredSetId = InbredSet.Id LIMIT 1) IS NOT NULL, 'Traits and Cofactors', '')" genotypeP)))
(set gn-term:phenotype