From 1590be15f85e30d7db879c19d2d3b4bed201556a Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 30 Jul 2025 10:32:34 +0200
Subject: Create endpoint for dataset/bxd-publish/list

---
 gn/data/dataset.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'gn/data')

diff --git a/gn/data/dataset.scm b/gn/data/dataset.scm
index c28cf25..5f6bb0f 100644
--- a/gn/data/dataset.scm
+++ b/gn/data/dataset.scm
@@ -12,6 +12,7 @@
 
   #:export (
             dataset-name
+            get-bxd-publish-list
             ))
 
 (define (get-dataset db probesetfreeze-id)
@@ -22,3 +23,10 @@
 
 (define (dataset-name db probesetfreeze-id)
   (assoc-ref (get-dataset db probesetfreeze-id) "Name"))
+
+(define (get-bxd-publish-list)
+  (call-with-db
+   (lambda (db)
+     (let [(query "SELECT Id,PhenotypeId,DataId FROM PublishXRef WHERE InbredSetId=1")]
+       (dbi-query db query)
+       (get-rows db '())))))
-- 
cgit 1.4.1