diff options
| author | Munyoki Kilyungi | 2024-08-14 13:51:31 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-08-14 13:53:46 +0300 |
| commit | a74ff5e34f5ffbf5114d9765425332999b4cb5fc (patch) | |
| tree | 2ddff0697aa6a1586535d4e9c5a264670aca9cc4 /examples | |
| parent | 8ba0a6427427153d812efdfccb6ffa6a33c33959 (diff) | |
| download | gn-transform-databases-a74ff5e34f5ffbf5114d9765425332999b4cb5fc.tar.gz | |
Remove Investigators from GeneRIF join.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
| -rwxr-xr-x | examples/generif.scm | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 706109f..5a78db0 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -64,8 +64,7 @@ (tables (GeneRIF (left-join Species "ON Species.SpeciesId = GeneRIF.SpeciesId") (left-join GeneRIFXRef "ON GeneRIFXRef.GeneRIFId = GeneRIF.Id") - (left-join GeneCategory "ON GeneRIFXRef.GeneCategoryId = GeneCategory.Id") - (left-join Investigators "ON Investigators.Email = GeneRIF.email")) + (left-join GeneCategory "ON GeneRIFXRef.GeneCategoryId = GeneCategory.Id")) "WHERE GeneRIF.display > 0 AND GeneRIF.VersionId = 0 AND GeneRIF.comment IS NOT NULL GROUP BY GeneRIF.comment, BINARY GeneRIF.symbol") (schema-triples (gnc:GeneWikiEntry a rdfs:Class) @@ -131,15 +130,6 @@ "~{dct:references pubmed:~a ; ~}" (string-split pmid #\space)) "") - (if (and (not (string-null? - (string-trim-both (field GeneRIF email)))) - (not (string-null? (field Investigators Email)))) - (format #f "dct:creator ~a ; " - (investigator-attributes->id - (field Investigators FirstName) - (field Investigators LastName) - (field Investigators Email))) - "") (if (string-blank? email) "" (format #f "foaf:mbox ~s ; " email)) |