From: Tara L Andrews <tla@mit.edu>
Date: Sun, 2 Oct 2011 23:48:54 +0000 (+0200)
Subject: fix acquisition of rank for row
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2Fstemmatology.git;a=commitdiff_plain;h=c7d0f25340110328ca7113d843d48c053514d14a

fix acquisition of rank for row
---

diff --git a/lib/Text/Tradition/Analysis.pm b/lib/Text/Tradition/Analysis.pm
index 00b7b67..1de487f 100644
--- a/lib/Text/Tradition/Analysis.pm
+++ b/lib/Text/Tradition/Analysis.pm
@@ -67,10 +67,11 @@ sub run_analysis {
 		my $rank;
 		foreach my $j ( 0 .. $#{$col_rdgs} ) {
 			my $rdg = $col_rdgs->[$j];
-			$rank = $rdg->rank if $rdg && !$rank;  # Make a note of our rank
 			my $rdg_text = '(omitted)';  # Initialize in case of empty reading
 			if( $rdg ) {
 				$rdg_text = $rdg->is_lacuna ? undef : $rdg->text; # Don't count lacunae
+				# Get the rank from any real reading; they should be identical.
+				$rank = $rdg->rank unless $rank || $rdg->is_lacuna;
 			}
 			if( defined $rdg_text ) {
 				# Initialize the witness array if we haven't got one yet