diff options
| author | Pjotr Prins | 2025-07-30 10:32:34 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2025-07-30 10:32:34 +0200 |
| commit | 1590be15f85e30d7db879c19d2d3b4bed201556a (patch) | |
| tree | 01b45a469abdec73e27e40914776c53cfa95e962 /gn/data | |
| parent | 418fbe142f42f057ea2d08e6f23c1ff4e7b274da (diff) | |
| download | gn-guile-1590be15f85e30d7db879c19d2d3b4bed201556a.tar.gz | |
Create endpoint for dataset/bxd-publish/list
Diffstat (limited to 'gn/data')
| -rw-r--r-- | gn/data/dataset.scm | 8 |
1 files changed, 8 insertions, 0 deletions
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 '()))))) |