1 files changed, 5 insertions, 1 deletions
diff --git a/dump.scm b/dump.scm
index 2a893ae..439f9e2 100755
--- a/dump.scm
+++ b/dump.scm
@@ -489,7 +489,11 @@ must be remedied."
    (gn:phenotypeOfSpecies rdfs:domain gn:phenotype)
    (gn:phenotypeOfSpecies rdfs:range gn:species))
   (triples (phenotype-id->id (field PublishXRef PhenotypeId))
-    (set gn:phenotypeOfSpecies (inbred-set-name->id (field InbredSet Name)))))
+    (set gn:phenotypeOfSpecies (inbred-set-name->id (field InbredSet Name)))
+    (set gn:traitId (field PublishXRef id))
+    (set gn:publicationId
+         (string->identifier "publication"
+                             (number->string (field PublishXRef PublicationId))))))
 
 (define tissue-short-name->id
   (cut string->identifier "tissue" <>))