From: Tara L Andrews <tla@mit.edu>
Date: Sun, 23 Mar 2014 21:49:11 +0000 (+0100)
Subject: return relationship significance info in analysis
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e49efd71179db96eeee80e7361e1f59ddf15e99;p=scpubgit%2Fstemmatology.git

return relationship significance info in analysis
---

diff --git a/analysis/lib/Text/Tradition/Analysis.pm b/analysis/lib/Text/Tradition/Analysis.pm
index 942f42a..225cd2b 100644
--- a/analysis/lib/Text/Tradition/Analysis.pm
+++ b/analysis/lib/Text/Tradition/Analysis.pm
@@ -830,6 +830,13 @@ sub _resolve_parent_relationships {
 		my $prep = $pobj ? $pobj->id . ' (' . $pobj->text . ')' : $p;
 		my $phash = { 'label' => $prep };
 		if( $pobj ) {
+			# Get the attributes of the parent object while we are here
+			$phash->{'text'} = $pobj->text if $pobj;
+			if( $pobj && $pobj->does('Text::Tradition::Morphology') ) {
+				$phash->{'is_nonsense'} = $pobj->is_nonsense;
+				$phash->{'is_ungrammatical'} = $pobj->grammar_invalid;
+			}
+			# Now look at the relationship
 			my $rel = $c->get_relationship( $p, $rid );
 			if( $rel && $rel->type eq 'collated' ) {
 				$rel = undef;
@@ -870,12 +877,6 @@ sub _resolve_parent_relationships {
 			} else {
 				$phash->{relation} = { type => 'deletion' };
 			}
-			# Get the attributes of the parent object while we are here
-			$phash->{'text'} = $pobj->text if $pobj;
-			if( $pobj && $pobj->does('Text::Tradition::Morphology') ) {
-				$phash->{'is_nonsense'} = $pobj->is_nonsense;
-				$phash->{'is_ungrammatical'} = $pobj->grammar_invalid;
-			}
 		} elsif( $p eq '(omitted)' ) {
 			# Check to see if the reading in question is a repetition.
 			my @reps = $rdg->related_readings( 'repetition' );
@@ -897,6 +898,14 @@ sub _add_to_hash {
 	$phash->{relation}->{transposed} = 1 if $is_transposed;
 	$phash->{relation}->{annotation} = $rel->annotation
 		if $rel->has_annotation;
+	# Get all the relevant relationship info.
+	foreach my $prop ( qw/ non_independent is_significant / ) {
+		$phash->{relation}->{$prop} = $rel->$prop;
+	}
+	# Figure out if the variant was judged revertible.
+	my $is_a = $rel->reading_a eq $phash->{text};
+	$phash->{revertible} = $is_a 
+		? $rel->a_derivable_from_b : $rel->b_derivable_from_a;
 }
 
 =head2 similar( $word1, $word2 )