(define-module (gn data dataset)
  #: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 (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 (get-dataset db probesetfreeze-id)
  (dbi-query db
             (string-append
              "select Name,Name2,FullName from ProbeSetFreeze where Id=" (int-to-string probesetfreeze-id) " limit 1;"))
  (get-row db))

(define (dataset-name db probesetfreeze-id)
  (assoc-ref (get-dataset db probesetfreeze-id) "Name"))