From: Tara L Andrews <tla@mit.edu>
Date: Fri, 3 Feb 2012 11:40:38 +0000 (+0100)
Subject: use new stemma interface
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b979e2e269da9877011d671af5b2857f2189fc6e;p=scpubgit%2Fstemmatology.git

use new stemma interface
---

diff --git a/lib/Text/Tradition/Analysis.pm b/lib/Text/Tradition/Analysis.pm
index 7bded9e..910f994 100644
--- a/lib/Text/Tradition/Analysis.pm
+++ b/lib/Text/Tradition/Analysis.pm
@@ -17,11 +17,11 @@ sub run_analysis {
 	my $data = {};
 	
 	# We need a stemma in order to run this...
-	unless( $tradition->has_stemma ) {
+	unless( $tradition->stemma_count ) {
 		warn "Tradition '" . $tradition->name . "' has no stemma to analyze";
 		return undef;
 	}
-	my $stemma = $tradition->stemma;
+	my $stemma = $tradition->stemma(0); # TODO allow multiple
 		
 	# We have the collation, so get the alignment table with witnesses in rows.
 	# Also return the reading objects in the table, rather than just the words.