1 package stemmaweb::Controller::Root;
3 use namespace::autoclean;
4 use Text::Tradition::Analysis qw/ run_analysis /;
7 BEGIN { extends 'Catalyst::Controller' }
10 # Sets the actions in this controller to be registered with no prefix
11 # so they function identically to actions created in MyApp.pm
13 __PACKAGE__->config(namespace => '');
17 stemmaweb::Controller::Root - Root Controller for stemmaweb
21 Serves up the main container pages.
27 The root page (/). Serves the main container page, from which the various
28 components will be loaded.
32 sub index :Path :Args(0) {
33 my ( $self, $c ) = @_;
35 $c->stash->{template} = 'index.tt';
38 =head1 Elements of index page
44 Serves a snippet of HTML that lists the available texts. This returns texts belonging to the logged-in user if any, otherwise it returns all public texts.
48 sub directory :Local :Args(0) {
50 my $m = $c->model('Directory');
51 # Is someone logged in?
52 if( $c->user_exists ) {
53 my $user = $c->user->get_object;
54 $c->stash->{usertexts} = [ $m->traditionlist( $user ) ];
55 $c->stash->{is_admin} = 1 if $user->is_admin;
57 # Unless we have an admin user, list public texts separately from
58 # any user texts that exist.
59 $c->stash->{publictexts} = [ $m->traditionlist('public') ]
60 unless $c->stash->{is_admin};
61 $c->stash->{template} = 'directory.tt';
66 GET /variantgraph/$textid
68 Returns the variant graph for the text specified at $textid, in SVG form.
72 sub variantgraph :Local :Args(1) {
73 my( $self, $c, $textid ) = @_;
74 my $m = $c->model('Directory');
75 my $tradition = $m->tradition( $textid );
76 my $collation = $tradition->collation;
77 $c->stash->{'result'} = $collation->as_svg;
78 $c->forward('View::SVG');
83 GET /alignment/$textid
85 Returns an alignment table for the text specified at $textid.
89 sub alignment :Local :Args(1) {
90 my( $self, $c, $textid ) = @_;
91 my $m = $c->model('Directory');
92 my $collation = $m->tradition( $textid )->collation;
93 my $alignment = $collation->alignment_table;
95 # Turn the table, so that witnesses are by column and the rows
97 my $wits = [ map { $_->{'witness'} } @{$alignment->{'alignment'}} ];
99 foreach my $i ( 0 .. $alignment->{'length'} - 1 ) {
100 my @rankrdgs = map { $_->{'tokens'}->[$i]->{'t'} }
101 @{$alignment->{'alignment'}};
102 push( @$rows, { 'rank' => $i+1, 'readings' => \@rankrdgs } );
104 $c->stash->{'witnesses'} = $wits;
105 $c->stash->{'table'} = $rows;
106 $c->stash->{'template'} = 'alignment.tt';
112 POST /stemma/$textid, { 'dot' => $dot_string }
114 Returns an SVG representation of the stemma hypothesis for the text. If
115 the URL is called with POST and a new dot string, updates the stemma and
116 returns the SVG as with GET.
120 sub stemma :Local :Args(1) {
121 my( $self, $c, $textid ) = @_;
122 my $m = $c->model('Directory');
123 my $tradition = $m->tradition( $textid );
125 if( $c->req->method eq 'POST' ) {
127 my $dot = $c->request->body_params->{'dot'};
128 $tradition->add_stemma( $dot );
129 $m->store( $tradition );
132 $c->stash->{'result'} = $tradition->stemma_count
133 ? $tradition->stemma(0)->as_svg( { size => [ 500, 375 ] } )
135 $c->forward('View::SVG');
140 GET /stemmadot/$textid
142 Returns the 'dot' format representation of the current stemma hypothesis.
146 sub stemmadot :Local :Args(1) {
147 my( $self, $c, $textid ) = @_;
148 my $m = $c->model('Directory');
149 my $tradition = $m->tradition( $textid );
151 $c->response->body( $tradition->stemma->editable );
152 $c->forward('View::Plain');
157 Standard 404 error page
162 my ( $self, $c ) = @_;
163 $c->response->body( 'Page not found' );
164 $c->response->status(404);
169 Attempt to render a view, if needed.
173 sub end : ActionClass('RenderView') {}
181 This library is free software. You can redistribute it and/or modify
182 it under the same terms as Perl itself.
186 __PACKAGE__->meta->make_immutable;