diff options
| -rwxr-xr-x | examples/dump-species-metadata.scm | 6 |
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 |