diff options
Diffstat (limited to 'examples')
| -rwxr-xr-x | examples/dump-phenotype.scm | 4 | ||||
| -rwxr-xr-x | examples/dump-publication.scm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/examples/dump-phenotype.scm b/examples/dump-phenotype.scm index 51ecb64..7582d94 100755 --- a/examples/dump-phenotype.scm +++ b/examples/dump-phenotype.scm @@ -102,9 +102,9 @@ pmid))) (publication-id (field Publication Id))) (if (string-null? pmid) - (string->identifier "publication" + (string->identifier "unpublished" (number->string publication-id)) - (ontology 'pubmed: pmid)))))) + (ontology 'publication: pmid)))))) (call-with-target-database diff --git a/examples/dump-publication.scm b/examples/dump-publication.scm index ef2a36d..ba77256 100755 --- a/examples/dump-publication.scm +++ b/examples/dump-publication.scm @@ -39,8 +39,8 @@ pmid))) (publication-id (field Publication Id))) (if (string-null? pmid) - (ontology 'publication: - publication-id) + (string->identifier "unpublished" + (number->string publication-id)) (ontology 'publication: pmid))) (set rdf:type 'gn:publication) (set gn:pubMedId (ontology 'pubmed: (field ("IFNULL(PubMed_ID, '')" pubmedId)))) |