X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fsvg_from_graphml.pl;h=2555fa785f76c4f3f9a7e2949fb42aa247eafa41;hb=f6066bac61bc5609c60d48df17aad924c8944177;hp=894d0d9d8c695fee8c31eb2f75abbed7a3c7b39c;hpb=9463b0bff2afe6185d9bdfda49ce9c9cdc176049;p=scpubgit%2Fstemmatology.git

diff --git a/script/svg_from_graphml.pl b/script/svg_from_graphml.pl
index 894d0d9..2555fa7 100644
--- 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,
     );