aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-31 16:43:37 +0300
committerMunyoki Kilyungi2023-07-31 16:43:37 +0300
commit25f9c7399dbf5832c6daa48463301e7def41bfb9 (patch)
tree0947de65fbdf0f2d003752d59be330800e076d13 /examples
parent7f23b03ec25fab74bc5d7576949aa8f0dd9200e6 (diff)
downloadgn-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')
-rwxr-xr-xexamples/dump-species-metadata.scm8
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))