From: Tara L Andrews <tla@mit.edu>
Date: Sun, 24 Jun 2012 13:33:24 +0000 (+0200)
Subject: refrain from recording normal form in graphml if it is unchanged
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2Fstemmatology.git;a=commitdiff_plain;h=18c64d55b44b98d29437f1386de78242b6cf43b5

refrain from recording normal form in graphml if it is unchanged
---

diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm
index d500390..a817385 100644
--- a/lib/Text/Tradition/Collation.pm
+++ b/lib/Text/Tradition/Collation.pm
@@ -1095,6 +1095,8 @@ sub as_graphml {
 				# serialize them. Otherwise set nval to undef so that the
 				# key is excluded from this reading.
         		$nval = $nval ? $n->_serialize_lexemes : undef;
+        	} elsif( $d eq 'normal_form' && $n->normal_form eq $n->text ) {
+        		$nval = undef;
         	}
         	if( $rankoffset && $d eq 'rank' && $n ne $self->start ) {
         		# Adjust the ranks within the subgraph.