# TODO not used yet, will load user texts later
my $user = $c->request->param( 'user' ) || 'ALL';
my @textlist;
- foreach my $id ( $m->tradition_ids ) {
- my $t = $m->info( $id );
- push( @textlist, $t );
- }
-
+ $m->scan( sub {
+ push( @textlist, {
+ 'id' => $m->object_to_id( @_ ),
+ 'name' => $_[0]->name } )
+ } );
$c->stash->{texts} = \@textlist;
$c->stash->{template} = 'directory.tt';
}
sub variantgraph :Local :Args(1) {
my( $self, $c, $textid ) = @_;
my $m = $c->model('Directory');
- my $collation = $m->tradition( $textid )->collation;
-
+ my $tradition = $m->tradition( $textid );
+ my $collation = $tradition->collation;
+ my $needsave = !$collation->has_cached_svg;
$c->stash->{'result'} = $collation->as_svg;
+ $m->save( $tradition );
$c->forward('View::SVG');
}
my( $self, $c, $textid ) = @_;
my $m = $c->model('Directory');
my $collation = $m->tradition( $textid )->collation;
- my $alignment = $collation->make_alignment_table;
+ my $alignment = $collation->alignment_table;
# Turn the table, so that witnesses are by column and the rows
# are by rank.
$m->store( $tradition );
}
- $c->stash->{'result'} = $tradition->stemma->as_svg;
+ $c->stash->{'result'} = $tradition->stemma_count
+ ? $tradition->stemma(0)->as_svg
+ : '';
$c->forward('View::SVG');
}