diff options
Diffstat (limited to 'examples/dump-dataset-metadata.scm')
-rwxr-xr-x | examples/dump-dataset-metadata.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm index e099bac..43ac144 100755 --- a/examples/dump-dataset-metadata.scm +++ b/examples/dump-dataset-metadata.scm @@ -159,7 +159,10 @@ (set gdmt:hasRightsInfo (string-downcase (field DatasetStatus DatasetStatusName))) (set gnt:belongsToInbredSet - (string->identifier "inbredSet" (field InbredSet Name InbredSetName))) + (string->identifier + "inbredSet" (field InbredSet Name) + #:separator "" + #:proc string-capitalize-first)) (set gnt:hasTissue (string->identifier "tissue" (field Tissue Short_Name))) (set gnt:usesNormalization |