From 36d778e4437e73b233c74af2e04c6f122ae44d09 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 13 Feb 2024 13:08:26 +0300
Subject: Convert extra dataset metadata to text-files.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
examples/dataset-metadata-git.scm | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm
index 52dafd1..aa50476 100755
--- a/examples/dataset-metadata-git.scm
+++ b/examples/dataset-metadata-git.scm
@@ -34,10 +34,13 @@
(summary (get* "Summary"))
(tissue (get* "AboutTissue"))
(specifics (get* "Specifics"))
+ (contributors (get* "Contributors"))
(cases (get* "AboutCases"))
(platform (get* "AboutPlatform"))
(processing (get* "AboutDataProcessing"))
(notes (get* "Notes"))
+ (citation (get* "Citation"))
+ (experiment-type (get* "Experiment_Type"))
(experiment-design (get* "ExperimentDesign"))
(acknowledgment (get* "Acknowledgment")))
(for-each (lambda (x)
@@ -48,12 +51,15 @@
(cdr x)))
`(("summary.rtf" . ,summary)
("tissue.rtf" . ,tissue)
+ ("citation.rtf" . ,citation)
("specifics.rtf" . ,specifics)
("cases.rtf" . ,cases)
("platform.rtf" . ,platform)
("processing.rtf" . ,processing)
("notes.rtf" . ,notes)
("experiment-design.rtf" . ,experiment-design)
+ ("experiment-type.rtf" . ,experiment-type)
+ ("contributors.rtf" . ,contributors)
("acknowledgment.rtf" . ,acknowledgment)))))
(define* (commit-changes
@@ -71,8 +77,8 @@
(options (getopt-long (command-line) option-spec))
(settings (option-ref options 'settings #f))
(query "SELECT InfoPageName, Datasets.Summary, Datasets.AboutTissue, InfoFiles.Specifics,
-Datasets.AboutCases, Datasets.AboutPlatform, Datasets.AboutDataProcessing,
-Datasets.Notes, Datasets.ExperimentDesign, Datasets.Acknowledgment
+Datasets.AboutCases, Datasets.AboutPlatform, Datasets.AboutDataProcessing, InfoFiles.Experiment_Type,
+Datasets.Notes, Datasets.ExperimentDesign, Datasets.Acknowledgment, Datasets.Contributors, Datasets.Citation
FROM InfoFiles LEFT JOIN Datasets USING (DatasetId)")
(%connection-settings
(call-with-input-file settings
--
cgit v1.2.3