checkpoint, not sure what is here

[scpubgit/stemmatology.git] / script / svg_from_graphml.pl

diff --git a/script/svg_from_graphml.pl b/script/svg_from_graphml.pl
index 894d0d9..2555fa7 100644 (file)
--- a/script/svg_from_graphml.pl
+++ b/script/svg_from_graphml.pl
@@ -7,6 +7,7 @@ use Text::Tradition;
 
 # First: read the base. Make a graph, but also note which
 # nodes represent line beginnings.
+my $type = 'CollateX'; # either Self or CollateX
 
 open( GRAPH, $ARGV[0] ) or die "Could not read file $ARGV[0]";
 my @lines = <GRAPH>;
@@ -14,7 +15,7 @@ close GRAPH;
 my $graphml_str = join( '', @lines );
 
 my $tradition = Text::Tradition->new(
-    'CollateX' => $graphml_str,
+    $type => $graphml_str,
     'linear' => 1,
     );