diff options
| -rwxr-xr-x | dump.scm | 6 |
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" <>)) |