Run gemma-wrapper with metadata

1 files changed, 6 insertions, 5 deletions

diff --git a/gn/data/dataset.scm b/gn/data/dataset.scm
index 3d96663..c28cf25 100644
--- a/gn/data/dataset.scm
+++ b/gn/data/dataset.scm
@@ -1,11 +1,9 @@
 (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)
@@ -16,8 +14,11 @@
             dataset-name
             ))
 
-(define (dataset-name db probesetfreeze-id)
+(define (get-dataset 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"))
+              "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"))