Allow either row or column orientation for alignment table
Tara L Andrews [Fri, 30 Sep 2011 00:26:50 +0000 (02:26 +0200)]
lib/Text/Tradition/Collation.pm

index ea55378..bc88107 100644 (file)
@@ -519,8 +519,13 @@ sub as_csv {
     return $self->csv;
 }
 
+# TODO Make an alignment table at the end of initialization to check for 
+# duplicate nodes from mis-collation.
+
+
+
 sub make_alignment_table {
-    my $self = shift;
+    my( $self, $in_rows ) = shift;
     unless( $self->linear ) {
         warn "Need a linear graph in order to make an alignment table";
         return;
@@ -538,6 +543,8 @@ sub make_alignment_table {
             push( @$table, \@ac_row );
         }           
     }
+    return $table if $in_rows;
+    
     # Return a table where the witnesses read in columns rather than rows.
     my $turned = _turn_table( $table );
     return $turned;