From: Tara L Andrews <tla@mit.edu>
Date: Sat, 18 Jan 2014 12:24:39 +0000 (+0100)
Subject: tweak options for classifying readings and relationships. Needed for tla/stemmaweb#33
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a5f5143bb88c01e91c06f70b1c67a908e5c779f;p=scpubgit%2Fstemmatology.git

tweak options for classifying readings and relationships. Needed for tla/stemmaweb#33
---

diff --git a/base/lib/Text/Tradition/Collation/Reading.pm b/base/lib/Text/Tradition/Collation/Reading.pm
index 62b592e..a482b60 100644
--- a/base/lib/Text/Tradition/Collation/Reading.pm
+++ b/base/lib/Text/Tradition/Collation/Reading.pm
@@ -104,6 +104,13 @@ has 'text' => (
 	writer => 'alter_text',
 	);
 	
+has 'is_lemma' => (
+	is => 'ro',
+	isa => 'Bool',
+	default => undef,
+	writer => 'make_lemma',
+	);
+	
 has 'is_start' => (
 	is => 'ro',
 	isa => 'Bool',
diff --git a/base/lib/Text/Tradition/Collation/Relationship.pm b/base/lib/Text/Tradition/Collation/Relationship.pm
index d43ea21..2610f20 100644
--- a/base/lib/Text/Tradition/Collation/Relationship.pm
+++ b/base/lib/Text/Tradition/Collation/Relationship.pm
@@ -117,11 +117,16 @@ has 'alters_meaning' => (
 	default => 0,
 	);
 
-has 'non_correctable' => (
+has 'a_derivable_from_b' => (
 	is => 'ro',
 	isa => 'Bool',
 	);
-
+	
+has 'b_derivable_from_a' => (
+	is => 'ro',
+	isa => 'Bool',
+	);
+	
 has 'non_independent' => (
 	is => 'ro',
 	isa => 'Bool',