save the name of the text too

diff --git a/lib/Text/Tradition/Parser/GraphML.pm b/lib/Text/Tradition/Parser/GraphML.pm
index 3ecd936..9fe2911 100644 (file)
--- a/lib/Text/Tradition/Parser/GraphML.pm
+++ b/lib/Text/Tradition/Parser/GraphML.pm
@@ -79,6 +79,7 @@ sub graphml_parse {
     }
 
     my $graph_el = $xpc->find( '/g:graphml/g:graph' )->[0];
+    $graph_hash->{'name'} = $graph_el->getAttribute( 'id' );
 
     my $node_reg = {};
     

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 );