From: Tara L Andrews 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;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 ); }