Allow either row or column orientation for alignment table

[scpubgit/stemmatology.git] / lib / Text / Tradition / Collation.pm

diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm
index ea55378..bc88107 100644 (file)
--- a/lib/Text/Tradition/Collation.pm
+++ b/lib/Text/Tradition/Collation.pm
@@ -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;