From: Tara L Andrews <tla@mit.edu>
Date: Thu, 19 Jan 2012 21:06:06 +0000 (+0100)
Subject: add displaylabel attribute that we might even use someday
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=732e9c4e1ba6cea5a93fe02b0b8e87a5d969f707;p=scpubgit%2Fstemmatology.git

add displaylabel attribute that we might even use someday
---

diff --git a/lib/Text/Tradition/Collation/Relationship.pm b/lib/Text/Tradition/Collation/Relationship.pm
index 11594b5..efefaab 100644
--- a/lib/Text/Tradition/Collation/Relationship.pm
+++ b/lib/Text/Tradition/Collation/Relationship.pm
@@ -14,6 +14,8 @@ no Moose::Util::TypeConstraints;
 
 =item * type - Can be one of spelling, orthographic, grammatical, meaning, lexical, collated, repetition, transposition.  All but the last two are only valid relationships between readings that occur at the same point in the text.
 
+=item * displayform - (Optional) The reading that should be displayed if the related nodes are treated as one.
+
 =item * non_correctable - (Optional) True if the reading would not have been corrected independently.
 
 =item * non_independent - (Optional) True if the variant is unlikely to have occurred independently in unrelated witnesses.
@@ -42,6 +44,12 @@ has 'reading_b' => (
 	required => 1,
 	);
 
+has 'displayform' => (
+	is => 'ro',
+	isa => 'Str',
+	predicate => 'has_displayform',
+	);
+
 has 'scope' => (
 	is => 'ro',
 	isa => 'RelationshipScope', 
@@ -59,7 +67,7 @@ has 'non_independent' => (
 	isa => 'Bool',
 	predicate => 'nonind_set',
 	);
-
+	
 # A read-only meta-Boolean attribute.
 sub colocated {
 	my $self = shift;