From a74ff5e34f5ffbf5114d9765425332999b4cb5fc Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 14 Aug 2024 13:51:31 +0300 Subject: Remove Investigators from GeneRIF join. Signed-off-by: Munyoki Kilyungi --- examples/generif.scm | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) (limited to 'examples') 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)) -- cgit v1.2.3