diff options
-rwxr-xr-x | examples/dump-probeset.scm | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/examples/dump-probeset.scm b/examples/dump-probeset.scm index f34b4bd..c614a76 100755 --- a/examples/dump-probeset.scm +++ b/examples/dump-probeset.scm @@ -66,19 +66,14 @@ (let ((id (field ("IF(NULLIF(TRIM(ProbeSet.Name), '') IS NULL, '', TRIM(ProbeSet.Name))" ProbeSetIdName))) (probeset-id (field ProbeSet Id))) - (if (string-null? id) - (string->identifier - "probeset" - (number->string - probeset-id)) - (string->identifier - "" + (string->identifier + "probeset" + (if (string-null? id) + (number->string probeset-id) (regexp-substitute/global #f "[^A-Za-z0-9:]" id - 'pre "_" 'post) - #:separator "" - #:proc string-capitalize-first))) + 'pre "_" 'post)))) (set rdf:type 'gnc:probeset) (set rdfs:label (field ProbeSet Name)) (set skos:altLabel |