aboutsummaryrefslogtreecommitdiff
path: root/gn/data/dataset.scm
blob: 3d9666381bbd4fe12fbab68c3b9303e34cf74043 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(define-module (gn data dataset)
  ;; #:use-module (json)
  #:use-module (ice-9 match)
  #:use-module (ice-9 format)
  #:use-module (ice-9 iconv)
  #:use-module (ice-9 receive)
  #:use-module (ice-9 string-fun)
  ;; #:use-module (gn db sparql)
  #:use-module (dbi dbi)
  #:use-module (gn db mysql)
  #:use-module (gn data group)
  #:use-module (gn util convert)
  #:use-module (web gn-uri)

  #:export (
            dataset-name
            ))

(define (dataset-name db probesetfreeze-id)
  (dbi-query db
             (string-append
              "select Name2 from ProbeSetFreeze where Id=" (int-to-string probesetfreeze-id) " limit 1;"))
  (assoc-ref (get-row db) "Name2"))