From: Tara L Andrews <tla@mit.edu>
Date: Wed, 18 Apr 2012 18:17:46 +0000 (+0200)
Subject: drop collations on global relationship setting too
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d5c8893dfea87a0c20a55484913e1a738529cd7;hp=7ec89b0e74bb39fb18fc259c37888306d3811a5e;p=scpubgit%2Fstemmatology.git

drop collations on global relationship setting too
---

diff --git a/lib/Text/Tradition/Collation/RelationshipStore.pm b/lib/Text/Tradition/Collation/RelationshipStore.pm
index 0dc6a2d..c5694ad 100644
--- a/lib/Text/Tradition/Collation/RelationshipStore.pm
+++ b/lib/Text/Tradition/Collation/RelationshipStore.pm
@@ -216,6 +216,7 @@ sub add_relationship {
 		# Check the options
 		$options->{'scope'} = 'local' unless $options->{'scope'};
 		$options->{'scope'} = 'local' if $options->{'type'} eq 'collated';
+		$options->{'scope'} = 'local' if $options->{'type'} eq 'transposition';
 		
 		my( $is_valid, $reason ) = 
 			$self->relationship_valid( $source, $target, $options->{'type'} );
@@ -265,6 +266,7 @@ sub add_relationship {
 				next;
     		}
     	}
+    	map { $self->_drop_collations( $_ ) } @$v;
     	$self->_set_relationship( $relationship, @$v );
     	push( @pairs_set, $v );
     }