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 --- 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