From 0d651ee8ef5f82a2fc3339329d2c0af6f84a745f Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 21 Aug 2023 14:45:46 +0300 Subject: Replace inbredSet with set as the string-identifier Signed-off-by: Munyoki Kilyungi --- examples/dump-dataset-metadata.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'examples/dump-dataset-metadata.scm') diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm index 8f381b7..a127e57 100755 --- a/examples/dump-dataset-metadata.scm +++ b/examples/dump-dataset-metadata.scm @@ -191,9 +191,9 @@ (field DatasetStatus DatasetStatusName))) (set gnt:belongsToSet (string->identifier - "inbredSet" (field InbredSet Name) - #:separator "" - #:proc string-capitalize-first)) + "set" (field InbredSet Name) + #:separator "" + #:proc string-capitalize-first)) (set gnt:hasTissue (string->identifier "tissue" (field Tissue Short_Name))) (set gnt:usesNormalization @@ -273,7 +273,7 @@ '^^xsd:date)) (set gnt:belongsToSet (string->identifier - "inbredSet" (field InbredSet Name) + "set" (field InbredSet Name) #:separator "" #:proc string-capitalize-first)))) @@ -303,7 +303,7 @@ '^^xsd:date)) (set gnt:belongsToSet (string->identifier - "inbredSet" (field InbredSet Name) + "set" (field InbredSet Name) #:separator "" #:proc string-capitalize-first)))) @@ -350,7 +350,7 @@ (field Tissue Short_Name))) (set gnt:belongsToSet (string->identifier - "inbredSet" (field InbredSet Name) + "set" (field InbredSet Name) #:separator "" #:proc string-capitalize-first)))) -- cgit v1.2.3