reading IDs must be XML names; now used in SVG node IDs

[scpubgit/stemmatology.git] / lib / Text / Tradition / Parser / Tabular.pm

diff --git a/lib/Text/Tradition/Parser/Tabular.pm b/lib/Text/Tradition/Parser/Tabular.pm
index 156c977..0048f87 100644 (file)
--- a/lib/Text/Tradition/Parser/Tabular.pm
+++ b/lib/Text/Tradition/Parser/Tabular.pm
@@ -110,9 +110,6 @@ foreach my $k ( keys %seen_wits ) {
 
 # Check that we only have collation relationships where we need them
 is( scalar $t->collation->relationships, 3, "Redundant collations were removed" );
-foreach my $rel ( $t->collation->relationships ) {
-       print STDERR $rel->[0] . " -> " . $rel->[1] . "\n";
-}
 
 =end testing
 
@@ -269,7 +266,7 @@ sub _make_nodes {
     my $ctr = 1;
     foreach my $w ( keys %unique ) {
        my $rargs = {
-               'id' => "$index,$ctr",
+               'id' => "r$index.$ctr",
                'rank' => $index,
                'text' => $w,
                };
@@ -289,6 +286,7 @@ sub _make_nodes {
        my $r = shift @rankrdgs;
        next if $r->is_meta;
        foreach my $nr ( @rankrdgs ) {
+               next if $nr->is_meta;
                if( $collation_rel ) {
                        $collation->add_relationship( $r, $nr, $collation_rel );
                } else {