X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FParser%2FGraphML.pm;h=9fe29119a965d049e9fff1fffb326d6d8dc75095;hb=e3196b2a34d403f922af145e2bb1b21356d5c94b;hp=3ecd93680877c35060ff12af7fd49cca17a740aa;hpb=9c52877edc72b6e277432b2c5bed47569a626b79;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Parser/GraphML.pm b/lib/Text/Tradition/Parser/GraphML.pm
index 3ecd936..9fe2911 100644
--- 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 = {};