about summary refs log tree commit diff
diff options
context:
space:
mode:
-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))