about summary refs log tree commit diff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/dump-phenotype.scm4
-rwxr-xr-xexamples/dump-publication.scm4
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))))