From: Tara L Andrews <tla\@mit.edu>
Date: Fri, 6 Jan 2012 22:25:12 +0000 (+0100)
Subject: add generic alignment relationship type
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=131fa6593efc065d37264cd08e0197e2f85d6c11;p=scpubgit%2Fstemmatology.git

add generic alignment relationship type
---

diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm
index f57b7e6..f945f34 100644
--- a/lib/Text/Tradition/Collation.pm
+++ b/lib/Text/Tradition/Collation.pm
@@ -276,7 +276,7 @@ sub add_relationship {
 
 	# Check the options
 	if( !defined $options->{'type'} ||
-		$options->{'type'} !~ /^(spelling|orthographic|grammatical|meaning|lexical|repetition|transposition)$/i ) {
+		$options->{'type'} !~ /^(spelling|orthographic|grammatical|meaning|lexical|collated|repetition|transposition)$/i ) {
 		my $t = $options->{'type'} ? $options->{'type'} : '';
 		return( undef, "Invalid or missing type " . $options->{'type'} );
 	}