diff options
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 '()))))) |