From: Tara L Andrews <tla\@mit.edu>
Date: Fri, 16 Mar 2012 10:54:35 +0000 (+0100)
Subject: only show 'interesting' variants in the stexaminer; send only witnesses
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e00385ace357aa47812c5fc9bd5505783a81778f;p=scpubgit%2Fstemmaweb.git

only show 'interesting' variants in the stexaminer; send only witnesses
present in the stemma to the solvers
---

diff --git a/lib/stemmaweb/Controller/Stexaminer.pm b/lib/stemmaweb/Controller/Stexaminer.pm
index 1449ad2..cb9990f 100644
--- a/lib/stemmaweb/Controller/Stexaminer.pm
+++ b/lib/stemmaweb/Controller/Stexaminer.pm
@@ -37,7 +37,7 @@ sub index :Path :Args(1) {
 		$c->stash->{text_title} = $tradition->name;
 		$c->stash->{template} = 'stexaminer.tt'; 
 		# TODO Run the analysis as AJAX from the loaded page.
-		my $t = run_analysis( $tradition );
+		my $t = run_analysis( $tradition, 'exclude_type1' => 1 );
 		# Stringify the reading groups
 		foreach my $loc ( @{$t->{'variants'}} ) {
 			my $mst = wit_stringify( $loc->{'missing'} );