diff options
| -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)) |