Merge branch 'master' of github.com:tla/stemmatology

[scpubgit/stemmatology.git] / stemmaweb / lib / stemmaweb / Controller / Root.pm

diff --git a/stemmaweb/lib/stemmaweb/Controller/Root.pm b/stemmaweb/lib/stemmaweb/Controller/Root.pm
index b8238dc..90f9e8a 100644 (file)
--- a/stemmaweb/lib/stemmaweb/Controller/Root.pm
+++ b/stemmaweb/lib/stemmaweb/Controller/Root.pm
@@ -48,9 +48,7 @@ Serves a snippet of HTML that lists the available texts.  This returns texts bel
 sub directory :Local :Args(0) {
        my( $self, $c ) = @_;
     my $m = $c->model('Directory');
-    # TODO not used yet, will load user texts later
     my $user = $c->user_exists ? $c->user->get_object : 'public';
-#    my $user = $c->request->param( 'user' ) || 'ALL';
     my @textlist = $m->traditionlist($user);
     $c->stash->{texts} = \@textlist;
        $c->stash->{template} = 'directory.tt';
@@ -127,7 +125,7 @@ sub stemma :Local :Args(1) {
        }
        
        $c->stash->{'result'} = $tradition->stemma_count
-               ? $tradition->stemma(0)->as_svg
+               ? $tradition->stemma(0)->as_svg( { size => [ 500, 375 ] } )
                : '';
        $c->forward('View::SVG');
 }