diff options
| author | Munyoki Kilyungi | 2023-07-31 16:43:37 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-07-31 16:43:37 +0300 |
| commit | 25f9c7399dbf5832c6daa48463301e7def41bfb9 (patch) | |
| tree | 0947de65fbdf0f2d003752d59be330800e076d13 /examples/dump-species-metadata.scm | |
| parent | 7f23b03ec25fab74bc5d7576949aa8f0dd9200e6 (diff) | |
| download | gn-transform-databases-25f9c7399dbf5832c6daa48463301e7def41bfb9.tar.gz | |
Remove duplicate entries for alias/symbol/name when dumping strains
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/dump-species-metadata.scm')
| -rwxr-xr-x | examples/dump-species-metadata.scm | 8 |
1 files changed, 4 insertions, 4 deletions
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)) |