From: Tara L Andrews <tla@mit.edu>
Date: Thu, 12 Jul 2012 15:02:59 +0000 (+0200)
Subject: small fix to compress_readings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2Fstemmatology.git;a=commitdiff_plain;h=339786dd0b0c493786af4df1ec3bc7ef2bf497e2;hp=9bdf9d67ee6007981f4cc59e844f02de4df7a289

small fix to compress_readings
---

diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm
index bd3b58d..465ef1e 100644
--- a/lib/Text/Tradition/Collation.pm
+++ b/lib/Text/Tradition/Collation.pm
@@ -417,6 +417,8 @@ sub merge_readings {
 			$joinstr = $self->wordsep unless defined $joinstr;
 		}
 		$kept_obj->alter_text( join( $joinstr, $kept_obj->text, $del_obj->text ) );
+		# Change this reading to a joining one if necessary
+		$kept_obj->_set_join_next( $del_obj->join_next );
 		$kept_obj->normal_form( 
 			join( $joinstr, $kept_obj->normal_form, $del_obj->normal_form ) );
 		# Combine the lexemes present in the readings
diff --git a/lib/Text/Tradition/Collation/Reading.pm b/lib/Text/Tradition/Collation/Reading.pm
index 4a022b5..f445420 100644
--- a/lib/Text/Tradition/Collation/Reading.pm
+++ b/lib/Text/Tradition/Collation/Reading.pm
@@ -183,12 +183,14 @@ has 'join_prior' => (
 	is => 'ro',
 	isa => 'Bool',
 	default => undef,
+	writer => '_set_join_prior',
 	);
 	
 has 'join_next' => (
 	is => 'ro',
 	isa => 'Bool',
 	default => undef,
+	writer => '_set_join_next',
 	);