diff options
| -rwxr-xr-x | examples/dump-species-metadata.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm index 6ac2640..afd4b6b 100755 --- a/examples/dump-species-metadata.scm +++ b/examples/dump-species-metadata.scm @@ -36,7 +36,9 @@ (gnt:binomialName rdfs:range rdfs:Literal) (gnt:family rdfs:range rdfs:Literal)) (triples - (string->binomial-name (field Species FullName)) + (string->identifier "" (remap-species-identifiers (field Species Fullname)) + #:separator "" + #:proc string-capitalize-first) (set rdf:type 'gnc:species) (set gnt:name (field Species SpeciesName)) (set gnt:displayName (field Species MenuName)) |