X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=TreeOfTexts%2Flib%2FTreeOfTexts%2FController%2FRoot.pm;h=2cd3a7694897527576e9ac65bce1f491be5de116;hb=e367f5c07b97362a0b60dba97fcc0ce944a4a08a;hp=14fd49fdfb43b6c8ee3eb7e579a3d6ca03f0fbda;hpb=c008b06433f9ecd3a12dbc355d07097c6b353b5e;p=scpubgit%2Fstemmatology.git

diff --git a/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm b/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm
index 14fd49f..2cd3a76 100644
--- a/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm
+++ b/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm
@@ -31,15 +31,24 @@ sub index :Path :Args(0) {
     my ( $self, $c ) = @_;
 
     my $m = $c->model('Analysis');
-	$c->stash->{svg} = $m->{'svg'};
-	$c->stash->{variants} = $m->{'variants'};
-	$c->stash->{text_title} = $m->{'title'};
-	$c->stash->{total} = $m->{'variant_count'};
-	$c->stash->{genealogical} = $m->{'genealogical_count'};
-	$c->stash->{conflict} = $m->{'conflict_count'};
-	$c->stash->{template} = 'index.tt'; 
+    my $i = 0;
+    my @all_texts = map { $_->{'title'} } @{$m->{'data'}};
+    $c->stash->{texts} = \@all_texts;
+    $c->stash->{template} = 'frontpage.tt';
 }
 
+sub view_text :Local {
+    my( $self, $c ) = @_;
+    my $m = $c->model('Analysis');
+    my $t = $m->{'data'}->[ $c->request->params->{'textid'} ];
+	$c->stash->{svg} = $t->{'svg'};
+	$c->stash->{variants} = $t->{'variants'};
+	$c->stash->{text_title} = $t->{'title'};
+	$c->stash->{total} = $t->{'variant_count'};
+	$c->stash->{genealogical} = $t->{'genealogical_count'};
+	$c->stash->{conflict} = $t->{'conflict_count'};
+	$c->stash->{template} = 'index.tt'; 
+}
 =head2 default
 
 Standard 404 error page