add generic alignment relationship type
Tara L Andrews [Fri, 6 Jan 2012 22:25:12 +0000 (23:25 +0100)]
lib/Text/Tradition/Collation.pm

index f57b7e6..f945f34 100644 (file)
@@ -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'} );
        }