X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=TreeOfTexts%2Flib%2FTreeOfTexts%2FController%2FRoot.pm;h=cb3b9d9ce7bf637b584723d7689cc289901510e6;hb=2376359f1ea2da0f3cf15fce586c55d046ef815a;hp=91e32013f7642b500f0536348e58dabf38f03072;hpb=a731e73a29eb1faeee2db782961c8ebe1f67239f;p=scpubgit%2Fstemmatology.git

diff --git a/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm b/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm
index 91e3201..cb3b9d9 100644
--- a/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm
+++ b/TreeOfTexts/lib/TreeOfTexts/Controller/Root.pm
@@ -44,7 +44,7 @@ sub index :Path :Args(0) {
 Serves a snippet of HTML that lists the available texts.  Eventually this will be available texts by user.
 
 =cut
-sub directory :Path :Args(0) {
+sub directory :Local :Args(0) {
 	my( $self, $c ) = @_;
     my $m = $c->model('Directory');
     # TODO not used yet, will load user texts later
@@ -55,7 +55,7 @@ sub directory :Path :Args(0) {
     		'id' => $id,
     		'name' => $m->name( $id ),
     	};
-    	push( @all_texts, $data );
+    	push( @textlist, $data );
     }
     
     $c->stash->{texts} = \@textlist;
@@ -70,7 +70,7 @@ Returns an alignment table for the text specified at $textid.
 
 =cut
 
-sub alignment :Path :Args(1) {
+sub alignment :Local :Args(1) {
 	my( $self, $c, $textid ) = @_;
 	my $m = $c->model('Directory');
 	my $collation = $m->tradition( $textid )->collation;
@@ -102,7 +102,7 @@ returns the SVG as with GET.
 
 =cut
 
-sub stemma :Path :Args(1) {
+sub stemma :Local :Args(1) {
 	my( $self, $c, $textid ) = @_;
 	my $m = $c->model('Directory');
 	my $tradition = $m->tradition( $textid );
@@ -126,7 +126,7 @@ Returns the 'dot' format representation of the current stemma hypothesis.
 
 =cut
 
-sub stemma :Path :Args(1) {
+sub stemmadot :Local :Args(1) {
 	my( $self, $c, $textid ) = @_;
 	my $m = $c->model('Directory');
 	my $tradition = $m->tradition( $textid );
@@ -135,115 +135,6 @@ sub stemma :Path :Args(1) {
 	$c->forward('View::Plain');
 }
 
-=head2 relationships
-
-The relationship editor tool.
-
-=cut
-
-sub relationships :Local {
-	my( $self, $c ) = @_;
-	my $m = $c->model('Directory');
-	my $tradition = $m->tradition( $c->request->params->{'textid'} );
-	my $table = $tradition->collation->make_alignment_table();
-	my $witlist = map { $_->{'witness'} } @{$table->{'alignment'}};
-	$c->stash->{witnesses} = $witlist;
-	$c->stash->{alignment} = $table;
-	$c->stash->{template} = 'relate.tt';	
-}
-
-=head2 stexaminer
-
-The stemma analysis tool with the pretty colored table.
-
-=cut
-
-sub stexaminer :Local {
-    my( $self, $c ) = @_;
-    my $m = $c->model('Directory');
-	my $tradition = $m->tradition( $c->request->params->{'textid'} );
-	my $stemma = $tradition->stemma;
-	# TODO Think about caching the stemma in a session 
-	$c->stash->{svg} = $stemma->as_svg;
-	$c->stash->{text_title} = $tradition->name;
-	$c->stash->{template} = 'index.tt'; 
-	# TODO Run the analysis as AJAX from the loaded page.
-	my $t = run_analysis( $tradition );
-	$c->stash->{variants} = $t->{'variants'};
-	$c->stash->{total} = $t->{'variant_count'};
-	$c->stash->{genealogical} = $t->{'genealogical_count'};
-	$c->stash->{conflict} = $t->{'conflict_count'};
-}
-
-=head1 MICROSERVICE CALLS
-
-=head2 renderSVG
-
-Parse the passed collation data and return an SVG of the collated text.  Takes
-the following parameters:
-
-=over 4
-
-=item * data - The collation data itself.
-
-=item * input - The data format.  Valid values include CollateX, Self, TEI (for parallel segmentation) eventually Tabular.
-
-=item * name - A name for the text. Not so important for this function.
-
-=cut
-
-# Utility function to render SVG from a graph input.
-sub renderSVG :Local {
-	my( $self, $c ) = @_;
-	my $format = $c->request->param('format') || 'string';
-	my $type = $c->request->body_params->{'type'};
-	my $name = $c->request->param('name') || 'Collation graph';
-	my $data = $c->request->body_params->{'data'};
-	$c->log->debug( $data );
-	my $tradition = Text::Tradition->new( 
-		'name' => $name,
-		'input' => $type,
-		$format => $data,
-		);
-	$c->log->debug( "Got tradition with " . $tradition->collation->readings . " readings" );
-	$c->stash->{'result'} = $tradition->collation->as_svg;
-	$c->forward('View::SVG');
-}
-
-
-=head1 OPENSOCIAL URLs
-
-=head2 view_table
-
-Simple gadget to return the analysis table for the stexaminer
-
-=cut
-
-sub view_table :Local {
-    my( $self, $c ) = @_;
-    my $m = $c->model('Directory');
-	my $id = $c->request->params->{'textid'};
-	my $t = run_analysis( $m->tradition( $id ), $m->stemma( $id ) );
-   	$c->stash->{variants} = $t->{'variants'};
-    $c->stash->{template} = 'table_gadget.tt';
-}
-
-=head2 view_svg
-
-Simple gadget to return the SVG for a given stemma
-
-=cut
-
-sub view_svg :Local {
-    my( $self, $c ) = @_;
-    my $m = $c->model('Directory');
-    my $stemma = $m->tradition( $c->request->params->{'textid'} )->stemma;
-	if( $stemma ) {
-	   	$c->stash->{svg} = $stemma->as_svg;
-	}
-    $c->stash->{template} = 'stemma_gadget.tt';
-}
-
 =head2 default
 
 Standard 404 error page