X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=TreeOfTexts%2Flib%2FTreeOfTexts%2FController%2FRoot.pm;h=e519288972db10b1536fc1550896f2a2515aa45a;hb=eb20780f358380c08ca7993062ef6c37f0444c67;hp=cd67868b6d8d0d6dac959f2ba5a377d55bf10c9b;hpb=0106ea2e3bf1f5ef92bc9112a46cdd512f2c42d0;p=scpubgit%2Fstemmatology.git

diff --git a/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm b/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm
index cd67868..e519288 100644
--- a/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm
+++ b/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm
@@ -30,11 +30,9 @@ The root page (/)
 sub index :Path :Args(0) {
     my ( $self, $c ) = @_;
 
-    my $file = $c->path_to( 't', 'data', 'florilegium.xml' );
-    my $stemma = $c->path_to( 't', 'data', 'stemma_a.dot' );
-    my( $svg, $variant_data ) = run_analysis( $file, $stemma );
-	$c->stash->{svg} = $svg;
-	$c->stash->{variants} = $variant_data;
+    my $m = $c->model('Analysis');
+	$c->stash->{svg} = $m->{'svg'};
+	$c->stash->{variants} = $m->{'variants'};
 	$c->stash->{template} = 'index.tt'; 
 }