aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dump-species-metadata.scm4
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))