save the name of the text too

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

diff --git a/lib/Text/Tradition/Parser/Self.pm b/lib/Text/Tradition/Parser/Self.pm
index 95ec304..895ca4d 100644 (file)
--- a/lib/Text/Tradition/Parser/Self.pm
+++ b/lib/Text/Tradition/Parser/Self.pm
@@ -132,6 +132,7 @@ sub parse {
     # Set up the graph-global attributes.  They will appear in the
     # hash under their accessor names.
     print STDERR "Setting graph globals\n";
+    $tradition->name( $graph_data->{'name'} );
     foreach my $gkey ( keys %{$graph_data->{'attr'}} ) {
                my $val = $graph_data->{'attr'}->{$gkey};
                $collation->$gkey( $val );