X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FParser%2FSelf.pm;h=ca58c33bd1cf3c812fb27888012847f09c1445ee;hb=15db7774a381c3ffff41a26bcb9f9e7bc9e65515;hp=b1082f3a0e147017d8041fd881de32a87cd34ba7;hpb=7d99d254df992ea1684a983e0f2c68a7ba4ce9d5;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Parser/Self.pm b/lib/Text/Tradition/Parser/Self.pm
index b1082f3..ca58c33 100644
--- a/lib/Text/Tradition/Parser/Self.pm
+++ b/lib/Text/Tradition/Parser/Self.pm
@@ -118,11 +118,11 @@ if( $t ) {
 =cut
 
 my( $IDKEY, $TOKENKEY, $TRANSPOS_KEY, $RANK_KEY,
-	$START_KEY, $END_KEY, $LACUNA_KEY,
+	$START_KEY, $END_KEY, $LACUNA_KEY, $COMMON_KEY,
 	$SOURCE_KEY, $TARGET_KEY, $WITNESS_KEY, $EXTRA_KEY, $RELATIONSHIP_KEY,
 	$SCOPE_KEY, $CORRECT_KEY, $INDEP_KEY )
     = qw/ id text identical rank 
-    	  is_start is_end is_lacuna 
+    	  is_start is_end is_lacuna is_common
     	  source target witness extra relationship
     	  scope non_correctable non_independent /;
 
@@ -167,6 +167,7 @@ sub parse {
         my $reading_options = { 
         	'id' => $n->{$IDKEY},
         	'is_lacuna' => $n->{$LACUNA_KEY},
+        	'is_common' => $n->{$COMMON_KEY},
         	};
         my $rank = $n->{$RANK_KEY};
 		$reading_options->{'rank'} = $rank if $rank;