diff options
| -rwxr-xr-x | examples/dataset-metadata-git.scm | 10 |
1 files 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 |