X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FAnalysis.pm;h=910f9947e1f368ef7f76398cf7c197b0aab28b52;hb=b979e2e269da9877011d671af5b2857f2189fc6e;hp=7bded9e114300b744bdd7279c613094484298ae8;hpb=b899039879fb1efc4bf581cfc9c06535f73e55cb;p=scpubgit%2Fstemmatology.git

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.