aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/generif.scm12
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))