From: Tara L Andrews <tla@mit.edu>
Date: Wed, 7 Mar 2012 15:18:00 +0000 (+0100)
Subject: don't include 'collated' relationships in viewer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9251a7bebe662954cb603693c1546611bcc0531b;p=scpubgit%2Fstemmatology.git

don't include 'collated' relationships in viewer
---

diff --git a/stemmaweb/lib/stemmaweb/Controller/Relation.pm b/stemmaweb/lib/stemmaweb/Controller/Relation.pm
index 4ca7a25..cd67f6a 100644
--- a/stemmaweb/lib/stemmaweb/Controller/Relation.pm
+++ b/stemmaweb/lib/stemmaweb/Controller/Relation.pm
@@ -110,6 +110,7 @@ sub relationships :Chained('text') :PathPart :Args(0) {
 		my @all_relations;
 		foreach my $p ( @pairs ) {
 			my $relobj = $collation->relations->get_relationship( @$p );
+			next if $relobj->type eq 'collated'; # Don't show these
 			my $relhash = { source => $p->[0], target => $p->[1], 
 				  type => $relobj->type, scope => $relobj->scope };
 			$relhash->{'note'} = $relobj->annotation if $relobj->has_annotation;