From 9b02f0bf22276bc257a724ea93831f8f813a8e03 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 3 Feb 2026 10:38:20 +0300
Subject: Update phenotypes.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/phenotype.scm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/examples/phenotype.scm b/examples/phenotype.scm
index 0fba2c1..74fee63 100755
--- a/examples/phenotype.scm
+++ b/examples/phenotype.scm
@@ -30,7 +30,7 @@
                             dataset_name))
                     #\,)))))
 
-(define-transformer gn:dataset->gn:trait
+(define-transformer gn:dataset->metadata
   (tables (PublishXRef
            (inner-join InbredSet "ON InbredSet.InbredSetId = PublishXRef.InbredSetId")
            (inner-join Species "ON InbredSet.SpeciesId = Species.Id")
@@ -38,6 +38,18 @@
            (inner-join Publication "ON Publication.Id = PublishXRef.PublicationId")
            (inner-join Phenotype "ON Phenotype.Id = PublishXRef.PhenotypeId"))
           "WHERE InbredSet.public > 0 GROUP BY Species.Name, PublishFreeze.Name")
+  (triples (string->identifier "dataset" (field PublishFreeze Name) #:separator "_")
+    (set dct:created (annotate-field (field PublishFreeze CreateTime) '^^xsd:datetime))
+    (set gnt:has_strain (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_"))))
+
+(define-transformer gn:dataset->gn:trait
+  (tables (PublishXRef
+           (inner-join InbredSet "ON InbredSet.InbredSetId = PublishXRef.InbredSetId")
+           (inner-join Species "ON InbredSet.SpeciesId = Species.Id")
+           (inner-join PublishFreeze "ON PublishFreeze.InbredSetId = InbredSet.Id")
+           (inner-join Publication "ON Publication.Id = PublishXRef.PublicationId")
+           (inner-join Phenotype "ON Phenotype.Id = PublishXRef.PhenotypeId"))
+          "WHERE InbredSet.public > 0")
   (triples (string->identifier "dataset" (field PublishFreeze Name) #:separator "_")
     (set gnt:has_phenotype_trait
          (let ((post-abbrev (blank-p (field Phenotype Post_publication_abbreviation)))
@@ -187,7 +199,7 @@
       ("xkos:" "<http://rdf-vocabulary.ddialliance.org/xkos#>")
       ("pubmed:" "<http://rdf.ncbi.nlm.nih.gov/pubmed/>")))
    (inputs
-    (list gn:set->gn:dataset
+    (list gn:dataset->metadata
           gn:dataset->gn:trait
           gnc:phenotype->gn:phenotype
           gn:phenotype->metadata
-- 
cgit 1.4.1