From 25f9c7399dbf5832c6daa48463301e7def41bfb9 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 31 Jul 2023 16:43:37 +0300 Subject: Remove duplicate entries for alias/symbol/name when dumping strains Signed-off-by: Munyoki Kilyungi --- examples/dump-species-metadata.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'examples/dump-species-metadata.scm') diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm index 2e0df34..4f468df 100755 --- a/examples/dump-species-metadata.scm +++ b/examples/dump-species-metadata.scm @@ -66,13 +66,13 @@ (set rdf:type 'gnc:strain) (set gnt:species (string->identifier "" (remap-species-identifiers (field Species Fullname)) - #:separator "" - #:proc string-capitalize-first)) + #:separator "" + #:proc string-capitalize-first)) ;; Name, and maybe a second name (set rdfs:label (sanitize-rdf-string (field Strain Name))) (set rdfs:label (sanitize-rdf-string (field ("IF ((Strain.Name2 != Strain.Name), Strain.Name2, '')" Name2)))) - (set gnt:alias (sanitize-rdf-string (field Strain Alias))) - (set gnt:symbol (field Strain Symbol)))) + (set gnt:alias (sanitize-rdf-string (field ("IF ((Strain.Alias != Strain.Name), Strain.Alias, '')" Alias)))) + (set gnt:symbol (field ("IF ((Strain.Symbol != Strain.Name), Strain.Symbol, '')" Symbol))))) (define-dump dump-mapping-method (tables (MappingMethod)) -- cgit v1.2.3