Correctly use the correct fields from Datasets table.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 9 insertions, 8 deletions

diff --git a/examples/molecular-traits.scm b/examples/molecular-traits.scm
index 7bec8ee..43b36b7 100755
--- a/examples/molecular-traits.scm
+++ b/examples/molecular-traits.scm
@@ -72,6 +72,7 @@
            (inner-join Tissue "ON ProbeFreeze.TissueId = Tissue.Id")
            (inner-join AvgMethod "ON AvgMethod.AvgMethodId = ProbeSetFreeze.AvgID")
            (inner-join InfoFiles "ON InfoFiles.InfoPageName = ProbeSetFreeze.Name")
+           (inner-join Datasets "ON InfoFiles.DatasetId = Datasets.DatasetId")
            (left-join GeneChip "ON GeneChip.Id =  InfoFiles.GeneChipId"))
           "WHERE ProbeSetFreeze.public > 0 AND Species.Name != 'monkey'")
   (schema-triples
@@ -154,17 +155,17 @@
                "" (sanitize-rdf-string experiment-type))))
     (set gnt:has_tissue_info
          (let ((tissue-info
-                (field InfoFiles About_Tissue)))
+                (field Datasets AboutTissue)))
            (if (or (null? tissue-info) (string-blank? tissue-info))
                "" (sanitize-rdf-string tissue-info))))
     (set gnt:has_summary
          (let* ((summary
-                 (field InfoFiles Summary)))
+                 (field Datasets Summary)))
            (if (or (null? summary) (string-blank? summary))
                "" (sanitize-rdf-string summary))))
     (set gnt:has_citation
          (let ((citation
-                (field InfoFiles Citation)))
+                (field Datasets Citation)))
            (if (or (null? citation) (string-blank? citation))
                "" (sanitize-rdf-string citation))))
     (set gnt:has_samples
@@ -179,27 +180,27 @@
                "" (sanitize-rdf-string specifics))))
     (set gnt:has_case_info
          (let ((cases
-                (field InfoFiles About_Cases)))
+                (field Datasets AboutCases)))
            (if (or (null? cases) (string-blank? cases))
                "" (sanitize-rdf-string cases))))
     (set gnt:has_platform_info
          (let* ((platform
-                 (field InfoFiles About_Array_Platform)))
+                 (field Datasets AboutPlatform)))
            (if (or (null? platform) (string-blank? platform))
                "" (sanitize-rdf-string platform))))
     (set gnt:has_data_processing_info
          (let* ((processing
-                 (field InfoFiles About_Data_Values_Processing)))
+                 (field Datasets AboutDataProcessing)))
            (if (or (null? processing) (string-blank? processing))
                "" (sanitize-rdf-string processing))))
     (set gnt:has_experiment_design
          (let ((experiment-design
-                (field InfoFiles Overall_Design)))
+                (field Datasets ExperimentDesign)))
            (if (or (null? experiment-design) (string-blank? experiment-design))
                "" (sanitize-rdf-string experiment-design))))
     (set gnt:has_contributors
          (let ((contributors
-                (field InfoFiles Contributor)))
+                (field Datasets Contributors)))
            (if (or (null? contributors) (string-blank? contributors))
                "" (sanitize-rdf-string contributors))))))